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Drucker  oder  Plotter? 

Man  braucht  keinen  teu¬ 
ren  Farbdrucker,  um  eine 
farbige  Hardcopy  zu  erstel¬ 
len:  es  geht  —  wie  wir  mit  ei¬ 
ner  in  diesem  Heft  veröffent¬ 
lichten  Routine  beweisen  — 
auch  mit  dem  preiswerten 
Printer/Plotter  1520,  Dieses 
Listing  zeigt  zugleich,  daß 
die  Möglichkeiten  eines  Plot¬ 
ters  häufig  unterschätzt  wer¬ 
den  —  er  kann  eben  mehr, 
als  nur  schöne  Linien  und 
Kurven  zeichnen.  Er  ist  zwar 
nicht  der  schnellste,  bringt 
aber  auch  Listings  und  Texte 
sauber  zu  (Rollen-)Papier. 
Bei  der  letzten  Commodore- 
Fachausstellung  demon¬ 
strierte  ein  Softwarehaus  so¬ 
gar,  daß  man  Formulare  un¬ 
ter  Umständen  leichter  mit 
einem  Plotter  (der  Formate 
wegen  freilich  nicht  mit  dem 
1520)  als  mit  einem  üblichen 
Drucker  ausfüllen  kann.  Ein 
bißchen  Phantasie  kann 
nicht  schaden:  Sicher  gäbe 
es  noch  eine  ganze  Reihe 
weiterer  Anwendungen  für 
Plotter  —  auch  die  Flachbett¬ 
plotter  für  DIN  A4  oder  gar 
DIN  A3  sind  ja  nicht  mehr  un¬ 
erschwinglich  teuer. 

Wir  gehen  in  diesem  und 
in  den  nächsten  Heften  aus¬ 
führlich  auf  die  wichtigsten 
Ausgabegeräte,  ihre  Stärken 
und  Schwächen  ein:  Matrix¬ 
drucker,  Typenraddrucker 
und  Plotter.  Ergänzend  ver¬ 
öffentlichen  wir  im  Listingteil 
häufig  benötigte  Routinen  für 
die  wichtigsten  Geräte.  Wir 
würden  uns  freuen,  wenn 
sich  Leser  melden,  die  bes¬ 
sere  Druckprogramme  ge¬ 
schrieben  haben,  über  inter¬ 
essante  Anwendungen  be¬ 
richten  oder  Tips  für  die  Lö¬ 
sung  bestimmter  Anschluß¬ 
probleme  geben  können. 


Michael  Pauly,  Chefredakteur 
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Hohe  Gestaltungsqualität, 
hoher  praktischer  Nutzen 
und  ergonomische  Anpas¬ 
sung,  technische  und  forma¬ 
le  Eigenständigkeit  und 
Gebrauchs-Visualisierung 
waren  unter  anderem  die 
Wertmaßstäbe,  die  die  zwölf 
if-Juroren  und  Sachverstän¬ 
digen  ihrer  Bewertung  zu¬ 
grunde  legten.  Nahezu  drei¬ 
hundert  Unternehmen  aus 
vierzehn  Ländern  beteilig¬ 
ten  sich  an  dem  Designer- 
Wettbewerb. 

Commodore  kann  reich- 


Modem  aus  Großbritannien 


Dieses  Modem  aus  Eng¬ 
land  ist  speziell  für  den 
Acorn  BBC  Computer  konzi¬ 
piert  worden.  Es  arbeitet  so¬ 
wohl  im  300/300  als  auch  im 
1200/75  Baud-Modus  und 
kann  zwischen  dem  (euro¬ 
päischen)  CCITT-  oder  dem 


(amerikanischen)  Beil- 

Standard  umgeschaltet  wer¬ 
den.  Der  Anschluß  an  den 
BBC  Model  B  Computer  fin¬ 
det  einfach  über  ein  fünfpoli- 
ges  DIN-Kabel  statt.  Natür¬ 
lichhat  das  Gerät  noch  keine 
FTZ-Nummer.  (aa) 

Software  Express  GmbH,  Hugo  Viehoffstra- 
ße  84  4  000  Düsseldorf  30,  Tel,  0211-424223 


Interessante  Modems 


Um  es  vorwegzuschicken, 
die  hier  beschriebenen  Mo¬ 
dems  wird  es  vorläufig  nicht 
auf  dem  deutschen  Markt 
geben,  da  ist  die  Bundespost 
vor.  Dennoch  sollen  sie  kurz 
vorgestellt  werden,  um  viel¬ 
leicht  wenigstens  als  Denk¬ 
anstoß  für  unsere  gute  alte 
BP  dienen  zu  können. 

Das  Modem-Phone  stellt 
eine  Kombination  aus  einem 
Telefon  und  einem  Modem 
dar.  Der  Ttelefonteil  kann  al¬ 
so  wie  ein  normales  Telefon 
(in  den  USA,  also  mit  Bell  103 
und  CCITT  V.21/V.23  Norm 
ausgestattet)  gehandhabt 
werden.  Der  Modemteil  läßt 
sich  über  eine  RS232C- 
Schnittstelle  mit  allen  Com¬ 


putern  die  selbige  besitzen 
(beispielweise  IBM,  Apple, 
Radio  Shack  (TRS  80  etc.), 
DEC  und  anderen  )  betrei¬ 
ben.  Mit  einem  entsprechen¬ 
den  Interface  natürlich  auch 
mit  dem  C  64.  Das  Modem 
kann  sowohl  im  300  als  auch 
im  1200  Baud-Modus  (asyn¬ 
chron)  betrieben  werden. 


Dieses  Modem-Phone  ist  al¬ 
so  hauptsächlich  auf  den 
amerikanischen  (und  engli¬ 
schen)  Markt  zu  geschnitten. 
Deshalb  die  Frage  an  den 
Bundespost-Minister:  Wieso 
gibt  es  so  etwas  noch  nicht  in 


Deutschland?  Müssen  wir  ei¬ 
gentlich  immer  hinter  den 
anderen  herlaufen  oder  hat 
das  (Kupfer-)  Kabelprojekt 
wirklich  einen  so  großen 
Stellenwert?  (aa) 


SX  64  ausgezeichnet 


Eine  internationale  Jury  hat  Com- 
modore  für  ihr  vorbildliches  Industriede¬ 
sign  ausgezeichnet.  Sie  erhielt  für  ihren 
seit  dem  Herbst  ’83  auf  dem  Markt  be¬ 
findlichen  SX  64  (die  tragbare  Version 
des  Commodore  64)  das  if-Emplem  des 
Vereins  »Die  gute  Industrieform  Hanno¬ 
ver  e.V.«,  das  alljährlich  zur  Hannover- 
Messe  verliehen  wird. 


lieh  stolz  sein  auf  diese  Aus¬ 
zeichnung.  Dennoch  gibt  es 
aus  unserer  Sicht  (und  aus 
der  des  Lesers)  auch  einige 
Punkte  die  Anlaß  zu  Kritik 
geben.  So  kann  man  den  zu 
klein  geratetenen  Monitor 
sicherlich  nicht  als  sehr  er¬ 
gonomisch  bezeichnen;  ge¬ 
naueres  ist  in  der  Ausgabe  4 
nachzulesen.  Einige  Leser 
monierten  mit  Recht,  daß  in 
Deutschland  der  SX  64  nur 
mit  dem  (zwar  deutschen) 
Handbuch  für  den  Commo¬ 
dore  64  ausgeliefert  wird. 


Nützlicher  wäre  es  da  doch, 
den  SX  64  mit  seinem  engli¬ 
schen  Handbuch  auszustat¬ 
ten.  Dieses  SX  64-Handbuch 
ist  nämlich  —  gemessen  an 
Commodore-Maßstäben  — 
um  einiges  umfangreicher 
und  besser  als  das  zum  Com¬ 
modore  64.  Der  Idealzustand 
wäre  natürlich  eine  gute 
deutsche  Übersetzung.  Die 
Anregung  ist  da,  was  Com¬ 
modore  macht,  bleibt  abzu¬ 
warten.  Der  SX  64  ist  es  si¬ 
cherlich  wert. 

(aa) 
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In  der  CES-Berichterstattung 
aus  Chicago  wurden  sie  schon 
einmal  kurz  angeschnitten,  die 
Laufwerke  von  MSD  Systems. 
Damals  noch  mit  der  Einschrän¬ 
kung,  auf  dem  deutschen  Markt 
müsse  mit  der  Einführung  wohl 
noch  eine  geraume  Zeit  gewar¬ 
tet  werden.  Diese  Wartezeit  ist 
nun  vorbei.  Softline  tritt  als  Im¬ 
porteur  auf. 

Was  bietet  nun  dieses  Doppel¬ 
laufwerk?  Zunächst  einmal  zwei 
normale  serielle  Anschlüsse, 
wie  wir  sie  auch  von  der  VC  1541 
her  gewohnt  sind.  Zudem  aber 
ist.  über  ein  IEEE-Interface, 
auch  der  parallele  IEC-Bus  der 
größeren  CBM-Systeme  verfüg¬ 
bar.  Durch  den  Einsatz  dieses 
Busses  ergeben  sich  natürlich 
erhebliche  Geschwindigkeits¬ 
vorteile.  So  beträgt  die  Zeit,  um 
eine  volle  Diskette  zu  kopieren  1 
Minute  und  55  Sekunden.  Darin 
sind  die  Zeiten  für  das  Formatie¬ 
ren  der  neuen,  leeren  Diskette, 
das  Kopieren  und  das  Verifizie¬ 


inner  Disk  Drive 


Nun  gibt  es  sie  auch  in  Deutschland,  die  MSD 
Super  Disk  II. 


ren  eingeschlossen.  Die  reine 
Formatierungszeit  für  eine  neue 
Diskette  beträgt  17  Sekunden. 
Diese  Werte  beziehen  sich  nur 
auf  den  parallelen  Bus.  Arbeitet 
man  mit  dem  seriellen  Anschluß, 
unterscheiden  sich  die  Zeiten 
nicht  wesentlich  von  denen  der 
VC  1541,  Dieser  Anschluß  ist 
aber  dennoch  nötig:  denn  nicht 
alle  Programme  laufen  mit  der 
parallelen  Schnittstelle.  So  hat¬ 


ten  wir  beispielsweise  Schwie¬ 
rigkeiten  mit  kopiergeschützten 
Programmen.  Die  Aussage  der 
lOOprozentigen  Kompatibilität 


kann  also  noch  nicht  gemacht 
werden.  (aa) 

Info:  Softline,  R.  Alverdes,  Schwarzwald¬ 
straße  8a,  7602  Oberkirch,  Tel.  07802-3707 
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Wersiboard  Music  64 

Ein  neues  Musiksystem  für 
den  Commodore  64  hat  die  Fir¬ 
ma  Wersi  vorgestellt.  Es  nennt 
sich  Wersiboard  Music  64  und 
besteht  aus  einem  Keyboard  mit 
49  Tasten,  einem  Interface  sowie 
der  zugehörigen  Software. 

Somit  gehören  nun  fingerver- 
renkende  Spielübungen  auf  der 
Schreibmaschinentastatur  des 
Commodore  64  der  Vergange 
heit  an.  Musiker  und  musikli 
bende  Computerfans  könne 
jetzt  Melodien  und  bis  zu  drei 
stimmige  Lieder  in  gewohnter 
Weise  auf  einer  Klaviatur  spie¬ 
len.  Die  Computertastatur  benö¬ 
tigt  man  nur  noch  zur  Bedienung 
der  Software.  Jeder  auf  der  Kla¬ 
viatur  angeschlagene  Ton  klingt 
sofort  aus  dem  Monitorlautspre¬ 
cher.  Auf  dem  System  läßt  sich 
also  spielen  wie  auf  einem  klei¬ 
nen  dreistimmigen  Synthesizer 
beziehungsweise  einer  drei¬ 
stimmigen  Orgel.  Zur  Klanger¬ 
zeugung  dient  der  SID-Chip  des 
C64 .  Die  Software  wird  auf  Disket¬ 
te  geliefert  und  besteht  aus  den 
2  Programmen  »Mono  64«  und 
»Poly  64«. 

Mono  64  ist  für  einen  mono- 
phon  spielbaren  Synthesizer. 
Monophon  bedeutet  einstim¬ 
mig.  Mit  diesem  Programm  las¬ 


sen  sich  also  nur  Melodien  spie¬ 
len.  Dafür  bietet  es  umfangrei¬ 
che  Klangeinstellmöglichkeiten. 

13  Klangprogramme  stehen  j 
während  des  Spieles  zur  Aus- J 


Menü  kann  man  nur  5  Klangfar¬ 
ben  auswählen.  Spinett,  Accor- 
injo  und  Tubulär 
sind  schon  fertig 
program¬ 


wahl.  Ein  Set  von  13  Demonstra¬ 
tions-Klängen  befindet  sich  be¬ 
reits  auf  der  Diskette:  Trompete, 
Blechbläser,  Klarinette,  Glok- 
ken,  Flöte,  Gitarre,  Streicher, 
Klavier,  Orgel  und  Akkordeon 
gehören  hierzu.  Sie  klingen  alle 
sehr  echt.  Ist  man  mit  diesen 
Klängen  nicht  zufrieden  oder 
will  man  neue  »erfinden«,  sind 
Experimenten  kaum  Grenzen 
gesetzt.  Nahezu  alle  Parameter 
des  SID-Chips  können  in  weiten 
Bereichen  verändert  werden, 
Attack,  Decay,  Sustain  und  Rele¬ 
ase  lassen  sich  getrennt  regeln. 
An  Filter-Modi  stehen  Tiefpass, 
Hochpass  und  Bandpass  zur 
Verfügung.  Einer  der  drei  SID- 
Oszillatoren  ist  als  langsam¬ 


schwingender  Modulationsos¬ 
zillator  geschalten.  Mit  diesem 
lassen  sich  Tremolos  und  Vibra¬ 
tos  erzeugen.  Die  beiden  ande¬ 
ren  Oszillatoren  spielen  die  Me¬ 
lodie.  Sie  lassen  sich  in  der  Ton¬ 
höhe  gegeneinander  verstim¬ 
men  und  mit  unterschiedlichen 
Kurvenformen  ausstatten,  wo¬ 
durch  interessante  Klangvaria¬ 
tionen  möglich  sind. 

Poly  64  ist  das  Programm  für 
einen  polyphonen  Synthesizer. 
Maximal  sind  natürlich  nur  drei 
Stimme«  gleichzeitig  spielbar. 
Dieses  Programm  weist  etwas 
weniger  Klangvariationsmög¬ 
lichkeiten  als  das  vorhergehen¬ 
de  auf.  Ein  Modulationsoszillator 
ist  nicht  vorhanden.  Über  das 


miert.  Über 
die  Funktionstasten 
des  Commodore  64  lassen  sich 
Attack,  Decay,  Sustain,  Release, 
Lautstärke,  Filterfrequenz,  Kur¬ 
venform  der  Oszillatoren  und 
die  Pulsbreite  ändern.  Leider 
können  beide  Programme  ge¬ 
spielte  Melodien  und  Lieder  we¬ 
der  in  Notenschrift  am  Bild¬ 
schirm  ausgeben,  noch  spei¬ 
chern  (Sequenzer).  Ergänzungs- 
Software  mit  diesen  Möglichkei¬ 
ten  wäre  sehr  wünschenswert. 
Hoffentlich  nehmen  sich  die 
Softwareingenieure  der  Firma 
Wersi  dieser  Probleme  bald  an. 

(Richard  Aicher/aa) 

Info:  Wersi,  Industriestraße,  5401  Halsen¬ 
bach/Hunsrück,  Tel.  06747-7131 
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Nicht  nur  auf  dem  ameri¬ 
kanischen  Markt  tut  sich  eini¬ 
ges  in  bezug  auf  die  alterna¬ 
tiven  Laufwerke  für  die  VC 
1541.  So'  haben  sich  einige 
Importeure  gefunden,  die 
Laufwerke  aus  Hongkong 
oder  Korea  anbieten,  teilwei¬ 
se  aber  auch  aus  europäi¬ 
scher  Produktion. 

Da  wäre  zunächst  einmal 
das  Doppellaufwerk  Micro- 
power  2000  von  WCS  (Wem- , 
per  Soft-Comp)  in  Aumühle. 
Dieses  Laufwerk  bietet  ’ 
ebenfalls  wie  das  MSD  Su- 1 
per  Disk  zwei  serielle  An¬ 
schlüsse  und  einen  An¬ 
schluß  über  den  IEEE-488- 
Bus.  Über  den  zuletzt  ge¬ 
nannten  Bus  ist  das  Micropo- 
wer  2000  an  die  größeren 
CBM-Computer  anschließ- 
bar.  Es  versteht  die  Befehle 
von  Basic  3.0  und  4.0. 

Beispiel:  Basic  V  3.0;  LO¬ 
AD  ”0:  Name”, 8  oder  LO¬ 
AD"!:  Name", 8  zum  Laden  ei¬ 
nes  Programms  von  Diskette 
in  Laufwerk  0  beziehungs¬ 
weise  Laufwerk  1.  In  Basic 
V  4.0  sehen  die  entsprechen¬ 
den  Befehle  so  aus;  DLOAD 
"Name”, DO  oder  DLOAD 
"Name", Dl.  Eine  genaue  An- 


Alternative  1541 

Von  ncs  Computersysteme 
in  Nettetal  wird  ein  vollkom¬ 
men  kompatibles  Laufwerk 
zur  1541  angeboten.  Das 
heißt  auf  den  IEC-Bus  wurde 
verzichtet.  Mit  diesem  Lauf¬ 
werk  hat  man  also  eine  1541 
vor  sich,  nur  mit  wesentlich 
verbesserten  Leistungs¬ 
merkmalen.  Diese  beziehen 
sich  allerdings  nicht  auf  die 
Geschwindigkeit,  sondern 
nur  auf  die  Zuverlässigkeit. 
Die  lOOprozentige  Kompati¬ 
bilität  bedingt  aber  auch, 
daß  das  Commmodore-Flop- 
py-Betriebssyslem  1:1  über¬ 
nommenwerden  müßte.  Und 
da  liegt  der  Hase  im  Pfeffer. 
Commodore  läßt  die  Freiga¬ 
be  dieses  Laufwerkes  nicht 
zu.  In  der  letzen  Ausgabe 
hatten  wir  über  ein  ähnliches 
Laufwerk  von  WM-Compu- 
ter  berichtet.  Bei  diesem 
Laufwerk  liegt  dieselbe 
Sachlage  vor.  Das  Laufwerk 


'S 


'S 


Es  rührt  sich  was  auf  dem 
Markt  der  alternativen 
Diskettenlaufwerke. 


Knock  out  für 
die  1541? 


gäbe  wie  sich  die  Micropo- 
wer  2000  mit  dem  C  64  ver¬ 
trägt  kann  noch  nicht  gege¬ 
ben  werden.  Ein  ausführli¬ 
cher  Testbericht  wird  aber 
noch  folgen. 

Info:  WCS  Wemper  Comp-Soft,  Bömsener 
Str.  6,  2055  Aumühle/Hbg.,  Tel.  04104-S365 


ist  vorhanden,  es  kann  gelie¬ 
fert  werden,  nur  es  darf 
nicht.  Das  Copyright  des 
Floppy-DOS  liegt  selbstver¬ 
ständlich  bei  Commodore, 
und  die  geben  es  nicht  frei. 

Die  Importeure  dieser  bei¬ 
den  Laufwerke  bemühen 
sich  nun,  ein  anderes 
Disketten-Operation-System 
in  ihre  Laufwerke  einbauen 
zu  lassen.  Eine  traurige  Tat¬ 
sache,  da  gäbe  es  nun  zwei 
zuverlässige  Laufwerke  auf 
dem  Markt,  doch  sie  dürfen 
nicht  verkauft  werden. 

Wir  halten  Sie  über  den 
Stand  der  Dinge  auf  dem  lau¬ 
fenden. 

Wafertape 

Ebenfalls  von  ncs  Compu¬ 
tersysteme  wird  es  dem¬ 
nächst  ein  Wafertape- 
Laufwerk  für  den  C  64  ge¬ 
ben.  Die  Übertragungsrate 
liegt  bei  19,2  KBit  pro  Sekun¬ 
de.  Das  SF1403  genannte 


Oben  das  Wafertape-Laufwerk  mit  dem  Endlosband.  Unten  das  Einzellaufwerk  für 
den  VC  20/C  64. 


«I 


Wafertape-Laufwerk  kann 
direkt  an  den  C  64  oder  den 
VC  20  angeschlossen  wer¬ 
den,  und  bietet  aber  außer¬ 
dem  noch  eine  Centronics- 
sowie  eine  RS232-Schnittstel- 
le.  Die  Datenspeicherung 
findet  auf  einem  sogenann¬ 
ten  magnetischem  Endlos¬ 
band  (in  etwa  einer  verklei¬ 
nerten  Musikkassette  ver¬ 
gleichbar)  statt.  Es  können  je 
nach  Bandlänge  bis  zu  140 


KByte  an  Daten  gespeichert 
werden.  Die  Handhabung 
entspricht  der  einer  Disket¬ 
te,  also  mit  Directory,  se¬ 
quentiellen  Dateien  etc.  Das 
Doppel-Laufwerk  soll  599 
Mark  kosten,  und  wird  wahr¬ 
scheinlich  Ende  dieses  Jah¬ 
res  erhältlich  sein.  (aa) 

Info:  ncs  Computersysteme  GmbH,  Kie- 
mensstraße  7,  4C54  Nettetal  2,  Tel. 
02157-1616 
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KRE/iTII/ES  CH/IOS 


Der  Computer  bietet  in  der  Datenfernübertragung  ungeahnte 
Möglichkeiten.  Aber  die  Gefahr  des  Mißbrauchs  ist  gegeben. 
Hier  werden  immer  wieder  die  Hacker  genannt.  Ihre  bekann¬ 
teste  »Vereinigung«  ist  in  Deutschland  der  Chaos  Computer 
Club  in  Hamburg.  Das  folgende  Interview  ist  weder  eine 
Rechfertigung  noch  eine  Verurteilung  der  Hacker.  Der  Artikel 
soll  einen  Einblick  in  die  »Philosophie«  des  CCC-Teams  bieten. 


Dieses  Interview  wurde  te¬ 
lefonisch  durchgeführt,  wo¬ 
bei  die  Interviewten,  zwei 
Mitglieder  des  CCC,  vor  ei¬ 
nem  Telefonverstärker  sa¬ 
ßen.  Das  wohl  wichtigste  Er¬ 
gebnis  ist:  Das  Bild  vom 
Hacker,  der  nur  aus  Spaß 
und  aus  Freude  an  der  Sa¬ 
che  selber  in  Datenbanken 
eindringt,  ist  nicht  mehr  ak¬ 
tuell.  Die  »Hacker«  vom  Cha¬ 
os  Computer  Club  (CCC) 
verstehen  sich  selber  als 

Kommunikationsexperten , 
die  das  neue  Medium  Daten¬ 
fernübertragung  per  Mo¬ 
dem  zur  weltweiten  Kommu¬ 
nikation  nutzen.  Letztendlich 
soll  jeder  unzensiert  Infor¬ 
mationen  austauschen  kön¬ 
nen.  Das  langfristige  Ziel  ist 
die  Installation  von  besse¬ 
ren,  objektiveren  Möglich¬ 
keiten  zur  freien  Meinungs¬ 
bildung.  Ein  »Hacker«  dieser 
Couleur  sieht  also  in  seinem 
Handeln  eine  gesellschaftli¬ 
che  Aufgabe. 

Was  macht  der  Chaos  Computer  Club 
überhaupt? 

Wir  verbreiten  Informatio¬ 
nen  über  neue  Medien  und 
unsere  Erfahrungen  und 
tauschen  Informationen 
über  die  verschiedensten 
Sachen  aus.  Computer  sind 
so  etwas  wie  ein  neues  Medi¬ 
um  für  uns  und  diese  Daten¬ 
verbindungen  sind  für  uns 
eine  neue  Form  von  Straßen 
und  öffentlichen  Plätzen,  auf 
denen  wir  uns  bewegen.  Wir 
möchten  mit  der  Zeitschrift 
»Datenschleuder«  andere 
Leute  auf  die  bestehenden 
Möglichkeiten  und  die  Ge¬ 
fahren  hinweisen. 

Das  ist  doch  ein  bißchen  harmlos 
ausgedrückt,  oder? 

Ich  weiß  nicht,  was  Du 
willst.  Die  ganzen  Zeitschrif¬ 
ten  oder  was  immer  so  be¬ 
richtet,  die  versuchen  uns 
immer  in  eine  leicht  krimi¬ 
nelle  Ecke  hineinzudrücken. 
Das  ist  überhaupt  nicht  un¬ 
ser  Sinn  und  Zweck  oder  gar 
unser  Anliegen.  Wir  möch¬ 
ten  ganz  einfach  nur  mitein¬ 


ander  Kontakt  halten  und 
aufnehmen  und  natürlich 
auch  —  also  ich  persönlich  — 
in  den  Rechnern  gucken, 
was  da  so  abläuft.  Um  da 
reinzukommen  muß  man  ein 
bißchen  kreativ  sein. 

Wie  kam  es  zur  Gründung  des  Chaos 
Computer  Clubs? 

Vor  drei  Jahren  haben  sich 
ein  paar  Leute  zusammenge¬ 
hockt,  und  gemeint,  daß  man 
mit  Computern  auch  andere 
Sachen  machen  kann,  als 
das,  was  zumindest  hier  in 
Deutschland  zu  diesen  Zei¬ 
ten  üblich  war.  Da  ist  dann  ei¬ 
ne  Kleinanzeige  in  einer  Ta¬ 
geszeitung  erschienen,  und 
in  Berlin  fand  ein  Treffen  von 
zwei  Dutzend  Leuten  aus 
dem  Bundesgebiet  statt.  Da 
haben  wir  damals  beschlos¬ 
sen  in  Kontakt  zu  bleiben  und 
Erfahrungen  auszutauschen, 
Die  Idee  war  einfach  die,  ei¬ 
ne  Zeitschrift  zu  machen, 
aber  zu  dem  Zeitpunkt  war 
das  alles  zu  locker,  und  es 
hat  nicht  hingehauen.  Weiter 
haben  sich  Kontakte  zu  den 
USA  ergeben,  zu  Cheshire 
Catalyst  (dem  »König«  der 
Hacker  in  den  USA,  d.Red.) 
und  zu  dessen  Zeitschrift 
Cap,  die  eine  ganze  Reihe 
von  Leuten  hier  im  Bundes¬ 
gebiet  schon  kannten  und 
abonniert  haben.  Auf  der  TE¬ 
LECOM  im  Herbst  83  habe 
ich  ihn  selber  kennengelernt 
und  darüber  eine  Doppel¬ 
seite  in  einer  Tageszeitung 
geschrieben.  Und  diese 


Doppelseite  hat  eine  ganze 
Menge  an  Resonanz  hervor¬ 
gebracht.  Zur  Jahreswende 
war  es  dann  soweit,  eine  Zeit¬ 
schrift  zu  machen.  Vorher 
gab  es  die  Idee,  alle  Informa¬ 
tionen  über  Floppy  auszu¬ 
tauschen,  aber  das  war  alles 
inkompatibel  und  hatte  kei¬ 
ne!.  "weck.  Die  Zeitschrift 
wurde  zur  Jahreswende  an¬ 
gekündigt  und  brachte  bin¬ 
nen  einer  Woche  an  die  100 
Zuschriften.  Da  war  das  hier 
in  Hamburg  einfach  klar: 
Wenn  100  Leute  das  haben 
wollen,  muß  die  einfach  ge¬ 
macht  werden.  Im  März  war 
es  dann  endlich  soweit,  fer¬ 
tig  war  die  erste  Nummer. 
Als  dann  die  erste  und  die 
zweite  Nummer  heraus  wa¬ 
ren,  ergab  sich  eine  wahre 
Briefflut.  Wenn  ich  meine 
beiden  Hände  hochkant  hin¬ 
halte,  das  entspricht  der  ein¬ 
gegangenen  Post. 

Wieviele  Abonnenten  hat  die  Zeit¬ 
schrift? 

Wir  sind  einfach  den  Weg 
gegangen,  daß  der,  der  ge¬ 
schrieben  hat,  auch  Informa¬ 
tionen  bekam,  egal  ob  er 
jetzt  Geld  schickte  oder 
nicht.  Die  Zahl  der  Abonnen¬ 
ten  bewegt  sich  bei  etwas 
über  200. 

Wie  schauen  jetzt  eure  finanziellen 
Möglichkeiten  aus? 

Schlecht!  Die  Produktions¬ 
kosten  von  der  Zeitung  lie¬ 
gen  pro  Exemplar  rund  bei 
10  Pfennig,  die  Doppelseite 
DIN-A-3  bedruckt.  Auf  der 


anderen  Seite  ist  das  Teuer¬ 
ste  halt  das  Porto.  50  Pfennig 
für  jedes  Ding.  Auf  ein  Exem¬ 
plar  kommen  drei  Exempla¬ 
re,  die  nicht  bezahlt  sind,  die 
wir  einfach  wegschicken,  sei 
es  zur  Probe,  oder  auf  eine 
Anfrage,  wo  nichts  bei  lag. 
Sie  finanziert  sich  eben  gera¬ 
de  über  der  Grasnarbe, 
aber  wir  haben  die  Hoff¬ 
nung,  daß  eine  Reihe  von 
Leuten  dazu  bereit  ist,  dafür 
auch  zu  zahlen.  Wenn  Geld 
reinkommt,  kann  man  auch 
weitermachen. 

Und  von  den  200  Abonnenten  hat  je¬ 
der  etwa  30  Mark  gezahlt? 

So  ungefähr.  Die  sind  auf 
den  Faktor  1  gekommen,  ein 
paar  haben  auch  noch  etwas 
gespendet,  aber  das  war  lei¬ 
der  weniger  als  erhofft.  Die 
Herstellung  einer  Daten¬ 
schleuder  kostet  ungefähr 
1000  Mark  pro  Ausgabe. 

Wie  lange  bekommt  einer  die  DS  für 
30  Mark  zugeschickt? 

Ein  Chaos-Jahr.  Das  ist  ef¬ 
fektiv  ungefähr  ein  Jahr,  mit 
ungefähr  10  Ausgaben.  Da 
müßt  Ihr  unbedingt  unsere 
Adresse  angeben,  sonst  ren¬ 
nen  sie  Euch  die  Bude  ein. 

Wieviele  feste  Mitglieder  sind  jetzt 
dabei? 

Zur  Mitgliederstruktur:  Das 
ist  ziemlich  offen  und  frei.  Je¬ 
der,  der  Informationen  für 
uns  hat,  der  trägt  sie  einfach 
bei,  ob  er  nun  Abonnent 
oder  nur  Bezieher  der  Da¬ 
tenschleuder  ist,  oder  ob  er 
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gar  nichts  von  der  Daten¬ 
schleuder  weiß.  Es  gibt  Leu¬ 
te,  die  beschäftigen  sich  mit 
dem  Modembauplan,  wir 
stellen  zum  Beispiel  Platinen 
her,  vertreiben  sie  auch. 
Dann  machen  wir  die  Daten¬ 
schleuder,  und  haben  die 
Kommunikation  über  Com¬ 
puter.  Das  ist  einfach  eine  of¬ 
fene  Struktur,  wo  jeder,  der 
Lust  hat,  mitmachen  kann 
und  es  irgendwann  bleiben 
läßt.  Wir  sind  aber  am  Über¬ 
legen,  ob  wir  das  Ganze  in 
Vereinsstrukturen  einbin¬ 
den  sollen.  Es  gibt  ein  paar 
Stellen  nach  außen,  wo  wir 
einfach  auf  Probleme  sto¬ 
ßen.  Aber  auf  der  anderen 
Seite  gefällt  uns  einfach  die¬ 
se  offene  Struktur.  Das  ist  ein 
Dilemma. 

Eine  ungefähre  Zahlenangabe  läßt 
sich  doch  machen,  oder? 

Wenn  man  das  auf  der 
Ebene  der  Abonnenten  an¬ 
setzt,  kommt  man  so  auf  über 
200,  davon  etwa  30  in  Ham¬ 
burg.  Das  sind  immer  so  flie¬ 
ßende  Grenzen.  Soll  ich  jetzt 
einen  Grafiker,  der  mal  ein 
paar  Bilder  für  die  Daten¬ 
schleuder  malt  als  Mitglied 
einstufen  oder  nicht?  Das  se¬ 
hen  wir  nicht  so  eng.  Da 
kommt  jemand  dazu,  findet 
das  interessant,  macht  dann 
einfach  mit.  Das  ist  auch  so 
bei  den  Treffen,  die  wir  ein¬ 
mal  in  der  Woche  in  einer 
Kneipe  hier  in  Hamburg  ma¬ 
chen.  Da  kommen  wechsel¬ 
weise  immer  andere  vorbei, 
ein  Stammtisch  eben.  Zum 
anderen  treffen  wir  uns  ein¬ 
mal  im  Monat  allgemein  zum 
Informationsaustausch . 

Welche  Leute  machen  mit? 

Das  geht  vom  Piloten  über 
einen  Schlosser,  Leute  mit  ei¬ 
nem  eigenen  Laden  bis  hin 
zu  Arbeitslosen  und  Studen¬ 
ten.  Sie  sind  zwischen  16  und 
35  Jahre  alt,  Nicht  älter. 

Wie  beurteilt  Ihr  die  rechtliche  Lage 
Eurer  Aktivitäten? 

Wir  mögen  es  überhaupt 
nicht,  wenn  wir  in  irgendeine 
Ecke  gedrängt  werden.  Jetzt 
wird  gesagt,  alles  seien  Kri¬ 
minelle,  die  Datenbanken 
knacken  und  einen  großen 
Unfug  treiben.  Wir  erheben 


grundsätzlich  nicht  den  An¬ 
spruch,  daß  wir  uns  an  alle 
Gesetze  und  Regeln  halten, 
zum  Beispiel  bezogen  auf  die 
Verwendung  von  nicht  FTZ- 
geprüftem  Gerät.  Wir  wollen 
die  Bundespost  davon  über¬ 
zeugen,  daß  das  wie  in  Eng¬ 
land  gehandhabt  wird,  also 
grob  gesagt,  die  Nutzung 
von  nicht  FTZ-geprüftem  Ge¬ 
rät  zugelassen  wird.  Das  ist 
eine  klare  Forderung  von 
uns.  Wir  sind  das  Gegenteil 
von  Computerkriminellen, 
die  wegen  des  eigenen  fi¬ 
nanziellen  Vorteils  in  Com¬ 
putersysteme  eindringen 
und  irgendwelche  Sachen 
von  dort  verkaufen;  genauso 
wie  wir  uns  ganz  klar  von 
Leuten  distanzieren,  die  Soft¬ 
ware  kopieren  und  dann  Wei¬ 
terverkäufen.  Auf  der  ande¬ 
ren  Seite  ist  das  bei  uns  so 
wie  beim  Patentrecht:  Wenn 
wir  bestimmte  Dinge  aus¬ 
schließlich  für  den  privaten 
Gebrauch  benutzen,  kann  es 
durchaus  Vorkommen,  daß 
wir  Geräte  verwenden  oder 
Sachen  machen,  die  irgend¬ 
wie  nicht  zugelassen  sind. 

Was  sind  die  wichtigsten  Ziele  des 
CCC? 

Eine  ganz  wichtige  Zielset¬ 
zung  ist  das  neue  Menschen¬ 
recht  auf  weltweiten,  freien 
Informationsaustausch.  Un¬ 
gehindert.  Das  ist  eine  Chan¬ 
ce,  die  die  elektronischen 
Medien  einfach  bieten.  Es 
passiert  in  einigen  extremen 
Fällen,  sagen  wir  mal  bei  Te¬ 
lefonaten  mit  Israel,  daß  sich 
die  Zensur  einschaltet  und 
die  Verbindung  abbricht. 
Und  in  die  Sowjetunion  gibt 
es  überhaupt  keinen  Selbst¬ 
wählverkehr.  Sonst  ist  das 
Telefon  ja  ein  Hilfsmittel,  um 
mit  Menschen  in  aller  Welt 
Verbindung  zu  bekommen 
und  unzensiert  zu  reden. 
Und  das  ist  ein  ungeheurer 
Fortschritt,  wenn  man  200 
Jahre  zurückdenkt.  Und  die¬ 
se  Entwicklung  wollen  wir  in 
Richtung  auf  die  neuen  Me¬ 
dien  weitertreiben;  wir  ver¬ 
suchen  einfach,  die  interna¬ 
tionale  freie  Diskussion  zu 
fördern,  also  so  etwas  wie 
der  »freedom  of  information 
act«  in  den  USA  erreichen, 
weltweit. 


Versteht  Ihr  jetzt  unter  frei  auch  ko¬ 
stenlos? 

Das  wäre  schön.  Aber  an¬ 
gesichts  meiner  Telefon¬ 
rechnung  würde  ich  sagen, 
daß  das  schon  lange  nicht 
mehr  kostenlos  ist.  Das  ist  ei¬ 
ne  Wunschvorstellung,  die 
sich  so  nicht  verwirklichen 
läßt.  Es  ist  aber  viel  billiger 
als  zum  Beispiel  jetzt  dau¬ 
ernd  herumreisen  zu  müs¬ 
sen;  es  ist  so  möglich,  daß  zu 
relativ  geringen  Kosten  in¬ 
ternationale  Konferenzen 
stattfinden.  Und  an  dem 
Punkt  stinken  wir  natürlich 
auch  gegen  eine  restriktive 
Gebührenpolitik  der  Bun¬ 
despost  an.  Es  ist  um  den 
Faktor  4  billiger,  von  den 
USA  nach  hier  zu  telefonie¬ 
ren  als  von  hier  in  die  USA.  In 
den  USA  sind  Ortsgesprä¬ 
che  zum  Beispiel  kostenlos. 
Die  Bundespost  hat  ihr  Mo¬ 
nopol,  und  sie  nutzt  es  aus.  So 
ist  es  in  den  USA  möglich,  als 
Funkamateur  das  Funknetz 
mit  dem  Telefonnetz  zu  kop¬ 
peln,  was  in  der  Bundesre¬ 
publik  v  rboten  ist.  An  sol¬ 
chen  Stellen  haben  wir,  ein¬ 
mal  vorsichtig  ausgedrückt, 
reformerische  Vorstellun¬ 
gen. 

Seht  Ihr  in  dem  Buch  »Der  Schock¬ 
wellenreiter»  von  John  Brunner  ir¬ 
gendwelche  Parallelen  in  Eurer  Ar¬ 
beit? 

Das  ist  ein  Buch,  das  eine 
Reihe  von  Leuten  ziemlich 
beeindruckt  hat.  Das  ist  eine 
Aktualisierung  von  »Brave 
New  World«  oder  »1984«  auf 
elektronische  Medien.  Es 
schildert  eine  Reihe  von  Ge¬ 
fahren  und  Chancen,  die  zu 
wenig  in  der  Diskussion  sind. 
Da  finde  ich  einfach,  das  ist 
ein  richtiges  Buch. 

Wie,  meint  Ihr,  wird  sich  das  Ganze  in 
den  nächsten  10  Jahren  weiterent¬ 
wickeln? 

Einrichtung  von  mehr 
Mailboxen.  Die  ganze  Com¬ 
puterei  wird  das  Miteinan¬ 
der  der  Menschen  ganz 
schön  beeinflussen.  In  viel 
stärkerem  Maße  als  das  Te¬ 
lefon.  Als  negatives  Bild:  Vor 
10  Jahren  gab  es  die  ersten 
Videogruppen:  »Neues  Me¬ 
dium,  kann  man  interessante 
Sachen  damit  machen,  zum 


Beispiel  eine  Stadtteilvideo 
oder  Betroffenenvideo.«  Also 
ein  Medium  für  Einfälle.  Und 
was  ist  nach  10  Jahren  her¬ 
ausgekommen?  Ein  absolu¬ 
tes  Massending,  mit  Horror 
und  Porno.  Und  in  ähnlicher 
Weise  sehe  ich  das  im  Nega¬ 
tiven  für  die  Computerei.  Sie 
führt  zu  einer  neuen  Form 
von  Orientierung  auf  die  Ma¬ 
schine  und  Sprachlosigkeit. 
Ich  sage  nur  »1926  Metropo¬ 
lis«  als  Stichwort.  Wir  wollen 
versuchen,  die  Leute  von  ih¬ 
ren  Daddelspielen  wegzu¬ 
ziehen  und  zu  einem  kreati¬ 
veren  Umgang  mit  dem  Me¬ 
dium  zu  bewegen.  Unsere 
Hoffnung  ist,  daß  der  Com¬ 
puter  als  neues  Medium  po¬ 
sitiv  zur  Verständigung  bei¬ 
trägt. 


I 

I 

I 

I 

I 


Wie  seht  Ihr  in  diesem  Zusammen¬ 
hang  die  Zukunft  für  den  CCC? 

Wichtig  ist,  daß  das  ge¬ 
druckte  Medium  nur  eine 
Krücke  und  ein  Übergangs¬ 
medium  ist,  womit  alle  ange¬ 
sprochen  werden,  die  kei¬ 
nen  Computer  und  kein  Mo¬ 
dem  haben.  Also  für  die,  die 
nicht  »online«  sind.  Auf  Dau¬ 
er  wird  eine  gedruckte  Sa¬ 
che  an  Bedeutung  verlieren. 
Die  Ecken  in  den  Mailboxen, 
wo  Neuigkeiten  drinstehen, 
sind  viel  aktueller  und  inter¬ 
essanter.  Was  in  der  Daten¬ 
schleuder  steht,  ist  oft  total 
veraltet,  wenn  sie  raus¬ 
kommt.  Jene,  die  sich  ein  biß¬ 
chen  in  Mailboxen  herum¬ 
tun,  sind  vom  Informations¬ 
stand  einfach  vier  Wochen 
weiter.  Deshalb  müßte  sich 
der  Informationsaustausch 
viel  mehr  auf  die  elektroni¬ 
schen  Medien  verlagern. 
Auch  bei  uns. 

Was  würdet  Ihr  jemandem  raten,  der 
sich  für  die  Kommunikation  als  sol¬ 
che  interessiert? 

Online!  Rem  in  die  Dinger! 
Gucken  und  sehen,  was  ihm 
gefällt,  ob  er  irgendwas  fin¬ 
det,  womit  er  etwas  anfangen 
kann  und  was  seinen  Interes¬ 
sen  entspricht.  Und  wenn  er 
nichts  findet,  sollte  er  Zuse¬ 
hen,  daß  er  etwas  aufbaut. 
Auf  alle  Fälle  immer  aktiv 
sein. 

Wer  da  ein  bißchen  ernst¬ 
haft  herangeht,  wird  rela- 

Fortsetzung  auf  Seite  176 
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Steuercodes  oder 
Interface? 

Ich  besitze  die  elektronische 
Schreibmaschine  SILVER-REED 
EX  44  und  das  dazugehörige  In¬ 
terface  mit  der  Bezeichnung  SRI 
IF-UI84  SIGMA  8300  SP  zum 
Commodore  64.  Diesem  Interfa¬ 
ce  ist  leider  nur  eine  äußerst 
dürftige  Beschreibung  beige¬ 
fügt,  die  in  keiner  Weise  den 
Möglichkeiten  entspricht.  Ei¬ 
nen  Teil  der  Codes,  die  —  ent¬ 
gegen  Herstellerangaben  — 
auch  funktionieren,  habe  ich 
schon  herausgefunden.  Für 
mich  sehr  interessant  wäre  eine 
Umschaltmöglichkeit  (elektro¬ 
nisch)  der  Zeilendichte  (Pitch), 
um  für  Diagramme  eine  höhere 
Auflösung  erzielen  zu  können. 
Daher  meine  Frage:  Wer  hat  den 
Code  dieses  Interfaces  ge¬ 
knackt  und/oder  kann  mir  hel¬ 
fen?  Das  Problem  scheint  die 
Belegung  der  ESC-Funktion  mit 
1/2-Space  zu  sein. 

Eckehard  Ledig 

Rotten  Sie 

f\r  verfSeauc?Sagen' 

:set  Seite  aua  eiteres 

>  sictinicW  oYin  s  ArcblVS 
hatid  eine  d^er  Sactikun- 


PET  EMULATOR  V0.5/081382 
WITH 

DOS  MANAGER  V5. 1/07 1382 
BY  BOB  FAIRBAIRN 
(C)  1982  COMMODORE  BUSI¬ 
NESSMACHINES 
PET  MODE 
EMULATOR  ON 
READY 

Und  nun  meine  Fragen  zu  die¬ 
sem  Programm:  Was  kann  man 
mit  diesem  Programm  alles  an¬ 
fangen?  Wie  kann  man  es  sinn¬ 
voll  anwenden?  Das  einzige, 
was  ich  bisher  herausgefunden 
habe,  ist  folgendes: 

1.  Das  Programm  »EMULATOR« 
liegt  im  Adressenbereich 
49152-53247,  also  ist  es  zirka  4 
KByte  lang. 

2.  Fragt  man  den  freien  Spei¬ 
cher  ab,  mit  PRINT  FRE(0),  so  er¬ 
hält  man  die  Antwort :  31741.  Es 
gehen  also  zirka  7  KByte  verlo¬ 
ren.  Was  ist  nun  mit  diesen  7 
KByte  passiert? 

3.  Das  einzige,  das  bei  der  Dis¬ 


Was  steckt  in  der 
Demodiskelte? 

Als  ich  mir  vor  ein  paar  Mona¬ 
ten  zu  meinem  Commodore  64 
das  Diskettenlaufwerk  kaufte, 
lagen  da  zwei  Disketten  dabei. 
Die  eine  Diskette  nennt  sich 
»TEST/DEMO«,  wo  auch  das 
DOS  5.1  drauf  ist.  Die  andere 
Diskette,  die  sich  »DEMODIS¬ 
KETTE«  nennt,  sind  zahlreiche 
Demonstrationen  drauf  wie: 
Musikdemos,  Grafikdemos,  ein 
paar  Anwendungen,  Spiele  und 
zu  guter  Letzt  auch  Werbung  für 
den  C  64.  Auf  dieser  Diskette  ist 
auch  das  Programm,  wo  ich  Sie 
nun  um  eine  Auskunft  bitte.  Das 
Programm  besteht  eigentlich 
aus  zwei  Programmen.  Das  er¬ 
ste  Programm  (der  Lader),  das 
sich  »3000.EMU.BOOT«  nennt, 
lädt,  nach  dem  man  es  gestartet 
hat,  das  eigentliche  Programm, 
das  sich  »EMULATOR«  nennt. 
Das  Programm  »EMULATOR« 
wird  vom  Lader  aus  mit  SYS 
12*4096  gestartet.  Man  erhält 
dann  folgenden  Bildschirmauf¬ 
bau: 


kette  beilag,  ist  folgender  Text: 
»Hilfsprogramm,  um  Program¬ 
me  von  CBM  3000  auf  den  C  64 
zu  verwenden«.  Bezieht  sich 
dieser  Text  nur  auf  Basic-  oder 
auch  auf  Maschinenpro¬ 
gramme. 

Ich  bin  sicher,  daß  ein  großer 
Teil  aller  C  64-Besitzer,  die  sich 
eine  Floppy  zugelegt  haben, 
dies  interessiert,  um  die  große 
Software-Vielfalt  der  CBMs  für 
den  C  64  auszunutzen. 

Wolfgang  Joachim 

Textverarbeitung  mit 
Seikosha  GP-700A? 

Obwohl  ich  einige  Textverar¬ 
beitungsprogramme  in  meiner 
Sammlung  habe,  ist  es  mir  noch 
nicht  gelungen,  meinen  Text 
durch  Einfügen  von  Formatie¬ 
rungsbefehlen  farbig  zu  gestal¬ 
ten.  Der  Drucker  wird  derzeit 
mit  einer  Centronics-Schnitt- 
stelle  der  Marke  Wiesemann 
Typ  9200  angesteuert.  Mit  wel¬ 
chen  Textprogrammen  kann  ich 
farbig  ausdrucken  und  welche 
Centronics-Schnittstellen  muß 
ich  an  den  Drucker  anschlie¬ 
ßen?  Conny  Scharfenberg 


C  64  extern  anhalten? 

Wie  kann  man  den  C  64  über 
externe  Beschaltung  (nur  Hard¬ 
ware)  beliebig  (über  den  DMA- 
Eingang  vielleicht?)  anhalten 
und  wieder  starten? 

Ulrich  Lang 


Vielsaitig  für  G  64? 

Ich  besitze  ein  Programmpa¬ 
ket  für  den  VC  20  mit  Namen 
»Vielsai tig«  von  Commodore.  Es 
handelt  sich  dabei  um  ein  Pro¬ 
gramm  zur  Lösung  musiktheo¬ 
retischer  Probleme.  Es  kann  ins¬ 
gesamt  25  internationale  Ton¬ 
skak.  in  Tabulatur  und  Klavia¬ 
tur  grafisch  ausgeben,  Gitarren¬ 
griffe  bestimmen  oder  die  rich¬ 
tigen  finden  und  vieles  mehr. 
Da  ich  nun  auf  den  Commodore 
64  umsteigen  möchte  würde 
mich  interessieren,  ob  es  ein 
Programm  für  den  C  64  gibt,  das 
über  die  obengenannten  Funk¬ 
tionen  verfügt  und  eventuell  mit 
besserer  Grafik  und  besserem 
Eingabekomfort  aufwarten 
kann? 

Oliver  Kreuzahler 

Der  C  64  als  Effekt¬ 
gerät? 

Wer  hat  Programme  für  den 
C  64  zur  Benutzung  als  Effektge¬ 
rät  überden  Audioein-  und  -aus- 
gang  am  User-Port  (Pin  3/5)?  Da¬ 
bei  denke  ich  an  Anwendungen 
wie  Echo/ Phaser/ Flanger/Cho- 
rus  und  Verzerreroder  auch  Ok- 
taver  und  Vocoder.  Ferner  wür¬ 
de  mich  interessieren,  wie  der 
Audioeingang  intern  verschal¬ 
tet  ist  und  ob  er  einen  A-D-/D-A- 
Wandler  besitzt? 

Patrick  Bandenberger 

Wo  gibt  es  Testpro¬ 
gramme? 

1)  Gibt  es  ein  »Testprogramm«, 
das  alle  Funktionen  des  Com¬ 
puters  testet?  (zum  Beispiel 
durch  User-Port,  Baud-Rate  und 
so  weiter). 


2)  Wo  kann  man  »Bauteile«  für 
den  C  64  kaufen  (zum  Beispiel 
6526)? 

3)  Exbasic  Level  II  wurde  auch 
schon  angesprochen.  Mit 
DUMP  erhält  man  die  Werte  der 
Variablen  (aber  nur  die  absolu¬ 
ten!).  Wie  kann  man  die  Vorzei¬ 
chen  sichtbar  machen?  Ist  es  ei¬ 
ne  Macke  vom  Exbasic? 

4)  Was  ist  mit  den  Unterschie¬ 
den  der  einzelnen 

»C  64-Jahrgänge«? 

Peter  Strempel 

3032-Monitor  am  C  64? 

Ich  möchte  den  Monitor  eines 
CBM  3032  an  den  C  64  anschlie¬ 
ßen.  Ist  eine  Schaltung  bekannt, 
die  die  von  diesem  Monitor  be¬ 
nötigten  Signale  (Video,  horiz. 
sync.,  verf.  sync.)  aus  dem 
F-BAS-Signal  des  C  64  erzeugt? 

Wolfgang  Stumm 

Simons  Basic  und 
DOS  5.1  gleichzeitig? 

Die  gleichzeitige  Verwen¬ 
dung  von  Simons  Basic  und 
DOS  5.1  auf  der  Gerätekombina¬ 
tion  C  64  und  VC  1541  funktio¬ 
niert  nicht.  Obwohl  Simons  Ba¬ 
sic  einige  Disk-Befehle  anbie¬ 
tet,  empfiehlt  es  sich,  um  jeder¬ 
zeit  den  Fehlerkanal  abfragen 
zu  können,  das  DOS  5.1  mit  zu 
verwenden.  Welche  Abhilfe 
gibt  es,  um  beides  störungsfrei 
nebeneinander  betreiben  zu 
können?  Wer  bietet  das  Textver¬ 
arbeitungsprogramm  »VIZAW- 
RITE  64«  an? 

Detlev  Preisler 

Textomat  und  Steuer¬ 
zeichen? 

Wer  hat  Erfahrung  mit  dem 
Programm  » Textomat «  und  »Da- 
tamat«  (neue  Version)  von  Data 
Becker  in  Verbindung  mit  dem 
Görlitz-Interface?  Ich  wäre  an  ei¬ 
ner  Druckertabelle  und  den 
Steuerzeichen  interessiert. 

Axel  Birtel 
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C  64-Platine  kaufen? 

Kann  man  bei  Commodoie 
oder  woanders  auch  nur  eine 
Platine  des  C  64  kaufen? 

Eric  Kratzin 

C  64-Tastatur  kaufen? 

Woher  bekomme  ich  eine  Ta¬ 
statur  für  den  C  64? 

Oliver  Varol 3 


Hardcopy  für 
Printer  4022? 

Ich  besitze  einen  C  64  mit 
IEEE  488-Interface  und  den 
Tractor-Printer  4022. 

1)  Ist  ein  Hardcopy  möglich? 
( Hardcopy  der  IEEE  488  funktio¬ 
niert  nicht!) 

2)  Wie  komme  ich  zur  Sperr¬ 
schrift  (breiterer  Ausdruck  von 
Zeichen)  beim  4022? 

3)  Wo  liegt  der  Grafikspeicher 
der  IEEE  448? 

Gernot  Zelzer 

Horizontales  Scrolling? 

Wie  kann  man  beim  C  64  ein 
horizontales  Fine-Scrolling 
(Punkt  für  Punkt)  auf  der  Text¬ 
seite  simulieren?  Mit  welcher 
Speicherzelle  kann  man  die 
Textseite  Punkt  für  Punkt  ver¬ 
schieben? 

Christoph  Bergmann 

Geldfrage? 

1.  Bei  welchen  Disketten  ist  das 
Preis-ZLeistungsverhältnis  am 
günstigsten?  (in  bezug  auf  die 
Commodore-Floppy  VC  1541). 

2.  Wie  kann  man  Sprites  dre¬ 
hen? 

3.  Bei  welchen  Geschäften/Ver- 
sandhäusem  bekommt  man  die 
billigste  Hard-/ Software? 

4.  Gibt  es  Möglichkeiten,  mit 
dem  Homecomputer  Geld  zu 
verdienen? 

Hendrik  Richter 

Fortran  auf  dem  C  64? 

Ich  besitze  einen  Commodo- 
re  64.  Gibt  es  für  dieses  Gerät  ei¬ 
nen  Fortran-IV-Compiler  oder 
eine  andere  Möglichkeit,  auf 
dem  C  64  mit  Fortran  IV  zu  ar¬ 
beiten? 

Hergen  Eilers 

Der  0  64  an  der  Stereo¬ 
anlage? 

Ich  habe  folgende  Fragen: 

—  Wie  schließe  ich  meinen 
Computer  (C  64)  an  eine  Stereo¬ 
anlage  an  (Mono-Umschalter 
nicht  vorhanden)?  Es  soll  kein 
Stereoton  simuliert  werden. 

—  Wie  kann  ich  die  Erweiterung 
»Turbo-Tape«  von  Maschinen¬ 
sprache  aus  nutzen?  (Wo  sind 
die  Einsprünge;  wie  werden  die 


Parameter  übergeben?)  Kann 
man  mit  »Turbo-Tape«  absolut 
laden  und  von  Maschinenspra¬ 
che  aus  speichern? 

—  Kann  man  Maschinenpro¬ 
gramme  im  Diskettenpuffer  ab- 
legen  und  dort  laufen  lassen? 
Wie  kann  man  sie  starten,  wenn 
das  oben  genannte  möglich  ist? 

Thomas  Denner 


SM-Text  64  mit 
Umlauten? 

Ist  es  möglich,  mit  SM-Text  64 
mittels  C  64  und  Drucker  MPS 
801  auch  Umlaute  zu  drucken? 
Wer  kennt  gegebenenfalls  ein 
Hilfsprogramm  ? 

Ulrich  U phagen 

Aztec  Tomb 

Wer  kann  mir  bei  der  Pflanze 
weiterhelfen? 

Ausgabe:  8/84 

Stefan  Sache 
So  würden  Sie  nicht  weiter¬ 
kommen,  denn  die  folgenden 
Schritte  fehlen  Ihnen  noch: 

—  im  Hausflur: 

Eingabe:  examine  hallstand 
Comp.:  I  can  see  empty  jam  jar 
Eingabe:  take  jar 
Comp.:  O.K. 

—  beim  Teich: 

Eingabe:  examine  pool 
Comp.:  I  can  see  fish-podl 
Eingabe:  catch  fish 
Comp.:  It's  now  in  jam  jar 

—  Waste  G round: 

Eingabe:  examine  fish 
Comp.:  It's  magical  it  says:  Plants 
need  water  and  vanishes 
Eingabe  (2mal):  fill  jar  —  empty 
jar 

Die  Pflanze  wächst  und  Sie  ge¬ 
langen  mit  »climb  beanstork«  in 
die  nächste  Abenteuerstufe. 

Olaf  Amblank 


Wordpro  3+ 


Kann  Wordpro  3+  auch  mit 
Centronics-Druckern  am  User¬ 
port  betrieben  werden? 
Ausgabe:  5/84 

Heinz-Josef  Erben 
Die  Redaktion  weist  in  Ihrem 
Test  in  der  Ausgabe  6/84,  Seite 
52  ff.  darauf  hin,  daß  das  Pro¬ 
gramm  nur  mit  Druckern  betrie¬ 
ben  werden  kann,  die  am  seriel¬ 
len  Bus  angeschlossen  sind. 

Mir  ist  es  nun  gelungen,  die 
nötige  Treibersoftware  für  eine 
Centronicsschmttstelle  in  das 
Programm  einzubinden.  Dar¬ 
über  hinaus  habe  ich  es  auch  um 
eine  deutsche  Tastaturbele¬ 
gung  und  deutschen  Zeichen¬ 
satz  erweitert.  Wer  also  mit  sei¬ 
nem  Wordpro  gerne  »Deutsch« 
schreiben  möchte  oder  einen 
Centronics-Drucker  benutzt, 
kann  sich  gerne  an  mich  wen¬ 
den. 

David  Trobisch 
Neckarhauserstr.  54 
6800  Mannheim  71 
Tel.  0621/475659 


Fragen  Sie  doch! 


Probleme  mit 
Speichererweiterung 
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süss 
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de  Fragend  lferess‘ere 
werden  veröffen üicE?^ 


3-KByte-Spiele  funktionieren 
nicht  mit  dem  16-KByte-Modul? 
Ausgabe:  7/84 

Daniel  Hüller 

Meine  Antwort  haben  Sie  of¬ 
fenbar  falsch  verstanden.  Um 
beim  VC  20  eine  3-KByte-RAM- 
Erweiterung  zu  simulieren,  be¬ 
nötigt  man  lediglich  eine 
8-KByte-Er Weiterung  (oder  na¬ 
türlich  mehr).  Eine  3-KByte- 
Erweiterung,  die  man  dann  zu¬ 
sammen  mit  der  16-KByte- 
Erweiterung  in  eine  (wohl  kaum 
vorhandene)  Modul-Box 

stecken  muß,  ist  völlig  unnötig. 
Die  von  mir  beschriebenen  PO- 
KEs  reichen  aus,  um  Program¬ 
me,  die  eigentlich  eine  3-KByte- 
Erweiterung  benötigen,  nur  mit 
einer  8-KByte-(oder  mehr)Er- 
weiterung  lauffähig  zu  machen. 

Oliver  Eichhorn 


Probleme  mit  Monitoren 

Wie  schließe  ich  einen  Moni¬ 
tor  an  den  VC  20  an? 

Ausgabe:  8/84 

Inge  Märkle 

Hier  mein  Tip,  wie  ich  meinen 
Monitor  angeschlossen  habe.  In 
einem  Elektrogeschäft  kauft 
man  sich  einen  5poligen  Di- 
odensteckex,  einen  Cinch- 
Stecker  und  ein  abgeschirmtes 
Kabel  (soviel  wie  man  eben 
braucht).  Das  alles  kostet  hur 
wenige  Mark.  Das  Kabel  wird 
abisoliert.  Der  Innenleiter  wird 
dann  an  Stift  5  des  Dioden¬ 
steckers  gelötet,  das  Drahtge¬ 
flecht  kommt  an  Stift  2.  Auf  der 
anderen  Seite  des  Kabels 

kommt  der  Innenleiter  an  den 
Stift  des  Cinch-Steckers,  das 
Drahtgeflecht  an  den  noch  frei¬ 
en  Anschluß.  Das  ist  schon  alles. 


Der  Diodenstecker  wird  anstel¬ 
le  des  Modulators  in  die  Video- 
Buchse  des  VC  20  gesteckt,  der 
Cinch-Stecker  kommt  in  den  Mo¬ 
nitor.  Siehe  auch  Seite  151  im 
Handbuch. 

Manchmal  kann  es  Vorkom¬ 
men,  daß  das  Monitorbild  trotz 
voll  aufgedrehtem  Helligkeits¬ 
regler  sehr  dunkel  ist.  Abhilfe: 
VC  20  aufschrauben  und  das 
Video-IC  suchen.  (Großes 
schwarzes  Bauteil  mit  40  Bein- 
chen,  auf  dem  »Mos  656«  steht. 
Manchmal  ist  dieses  IC  von  ei¬ 
nem  silbrigen  Metallkästchen 
umgeben:  Deckel  entfernen.)  In 
der  Nähe  dieses  ICs  gibt  es  zwei 
blaue  Regler.  Monitor  anschlie¬ 
ßen  und  Helligkeitsregler  ganz 
aufdrehen.  Nun  einen  der  bei¬ 
den  Regler  vorsichtig  (!)  verdre¬ 
hen.  Verändert  sich  die  Bildhel¬ 
ligkeit,  so  muß  der  Regler  so  lan¬ 
ge  verdreht  werden,  bis  das  Bild 
hell  genug  ist.  Wenn  beim  Ver¬ 
drehen  nichts  passiert,  den  Reg¬ 
ler  wieder  in  die  Stellung  brin¬ 
gen,  in  der  er  war  und  das  Expe¬ 
riment  mit  dem  anderen  Regler 
wiederholen.  Wenn  auch  hier 
nichts  passiert,  muß  das  Video¬ 
signal  verstärkt  werden.  Den 
Schaltplan  für  einen  entspre¬ 
chenden  Verstärker  kann  man 
bei  mir  bekommen. 

Bemd  Eßlinger 
Panoramastr.  32 

7470  Albstadt  2 

Text  und  Grafik  mischen 

Wie  kann  ich  in  Simons  Basic 
hochauflösende  Grafik  und 
Text  gleichzeitig  darstellen? 
Ausgabe:  8/84 

Frank  Schager 

Die  Darstellung  von  Text  und 
gleichzeitig  Grafik  im  Grafikmo¬ 
dus  des  Simons  Basic  läßt  sich 
durch  den  Simons  Basic-Befehl 
»TEXT«  bewerkstelligen.  Dieser 
ist  so  anzuwenden: 

TEXT  x,y,"Text",m,gr,ab 

x  =  X-Koordinate;  y  =  Y- 

Koordinate; 

m  =  Grafikmodus  (m  =  0  oder 
m  =  l  oder  m  =  2),  wenn  m  =  0,  1 
oder  2)  wenn  m  =  0  dann  aus; 
gr  =  Größe  des  darzustellenden 
Buchstabens; 

ab  =  Abstand  zwischen  den  ein¬ 
zelnen  Buchstaben. 

Um  einen  gleichen  Abstand 
und  eine  gleiche  Größe  der 
Buchstaben  wie  beim  normalen 
Textmodus  zu  erreichen,  wird 
für  »gr«  eine  1  und  für  »ab«  eine  7 
eingesetzt.  Also: 

TEXT  x, y, "Text", m,  1,7 

Dennoch  läßt  sich  eine  Einga¬ 
be  von  Antworten  im  Grafikmo¬ 
dus  des  Simons  Basic  nicht  sehr 
einfach  realisieren,  da  bei  der 
Eingabe,  jedenfalls  im  Grafik¬ 
modus,  weder  Cursor  noch  Ein¬ 
gaben  sichtbar  sind.  Vielleicht 
gibt  es  einen  Ersatzbefehl  für 
den  herkömmlichen  INPUT? 

Stephan  Hardy 
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C  64  und  Videorecorder 

Wie  kann  ich  mit  dem  Video¬ 
recorder  die  Signale  vom  Com¬ 
puter  aufnehmen? 

Ausgabe:  8/84 

Eugen  Anger 

Die  Lösung  ist  ganz  einfach: 
Man  nehme  das  Kabel,  welches 
beim  C  64  direkt  vom  Computer 
kommt,  und  steckt  dieses  in  den 
Eingang  des  Videorecorders. 
Dann  führt  man  das  Kabel  vom 
Ausgang,  wie  in  der  Betriebsan¬ 
leitung  angegeben,  zum  Fern¬ 
sehgerät.  Nun  muß  man  das  Ge¬ 
rät  auf  den  Computer  einstellen, 
und  zwar  so,  als  würde  man  ei¬ 
nen  Fernsehsender  einstellen. 
Danach  braucht  man  nur  noch 
wie  bei  der  normalen  Aufnahme 
zu  verfahren. 

Stefan  Wößner 


Hardcopy  mit  NEC 
8023  B-N 

Wer  bietet  Software  an,  um 
mit  dem  C  64  und  dem  Drucker 
NEC  8023  B-N  hochauflösende 
Grafik  und  Hardcopys  zu  erstel¬ 
len? 

Ausgabe:  8/84 

Wolf  gang  Jaworski 

Unser  neues  Interface  Typ 
82000/NEC  erlaubt,  den  NEC- 
Drucker  8023  oder  Itoh  8510  an 
den  C  64  anzuschließen.  Der 
Drucker  wird  voll  kompatibel 
zum  CBM-Drucker  1515.  Auf  die¬ 
se  Weise  können  zum  Beispiel 
mit  Simons  Basic  problemlos 
Hardcopys  erstellt  werden.  Das 
Interface  ist  für  298  Mark  inklusi¬ 
ve  Mehrwertsteuer  sofort  liefer¬ 
bar.  Vorhandene  Geräte  Typ 
9200  rüsten  wir  für  91,20  Mark  in¬ 
klusive  Mehrwertsteuer  in  die 
neue  Version  um.  Ihr  Leser 

Reinhard  Wiesemann 
Mikrocomputertechnik, 
Wuppertal 

Rechengenauigkeit  beim 
C  64 

Warum  gibt  der  C  64  als  Er¬ 
gebnis  der  Aufgabe  PRINT 
INT(3/0.03)  nicht  100,  sondern 
99  an? 

Ausgabe:  9/84 

Oliver  Treiber 

Wie  genau  der  C  64  in  seiner 
Ausarbeitung  ist,  beweist  Ihr 
Auftrag-Print  INT(3/0.03).  Von 
der  Logik  her  ist  diese  Antwort 
als  richtig  einzustufen.  Die  INT- 
Funktion  (Ganzzahl-Funktion) 
geht  davon  aus,  daß  im  Ender¬ 
gebnis  die  kleinere,  ganze  Zahl 
ausgegeben  wird.  Das  Ergebnis 
lautet  natürlich  100;  da  aber  die 
INT-Funktion  die  nächst  kleine¬ 
re  Zahl  anzugeben  hat,  wäre 
dies  die  Zahl  99.99,  die  der  100 
am  nächsten  käme. 

Nun  hat  aber  die  INT-Funktion 
auch  die  Aufgabe,  aus  einer  Zahl 


18  ZXdS 


mit  Dezimalstellen  eine  ganze 
Zahl  zu  machen.  Also  werden 
die  beiden  Dezimalstellen  ge¬ 
schluckt.  Das  INT-Ergebnis  lau¬ 
tet  daher  99.  Nun  kann  man  die¬ 
se  »Ungenauigkeit«  in  der  INT- 
Funktion  umgehen,  in  dem  man 
das  Originalergebnis  mit  einer 
Dezimalstelle  versieht.  PRINT 
INT(3/0.03-r0.5).  Das  Ergebnis 
müßte  jetzt  100.5  lauten.  Aber 
die  nächst  kleinere,  ganze  Zahl 
lautet  100. 

Im  übrigen  kann  man  mit  der 
INT-Funktion  auf-  und  abrunden 
sowie  vorausbestimmen,  auf 
■wieviele  Dezimalstellen  das 
Endergebnis  ausgedruckt  wer¬ 
den  soll.  Im  Prinzip  kommt  es 
darauf  an,  welche  Aufgabe  eine 
Funktion  übernimmt.  Eine  sol¬ 
che  Rechenoperation  löst  man 
einfacher  mit  Print  3/0.03.  Be¬ 
sondere  Vorsicht  ist  bei  einer 
INT-Funktion  mit  einer  negati¬ 
ven  Zahl  geboten. 

Prüfen  Sie  die  Aussage  PRINT 
INT(— 2.3)  auf  die  Aussage  der 
nächst  kleineren,  ganzen  Zahl 
hin.  Das  Ergebnis  lautet  —3. 

Rolf  Voigt 


Programmunterbrechung 
bei  Druckerausgabe 

Bei  Ausgabe  über  Drucker  er¬ 
folgt  nach  unterschiedlich  lan¬ 
ger  Druckerausgabe  des  öfte¬ 
ren  die  Fehlermeldung  »Device 
not  present  error«.  Handelt  es 
sich  um  einen  Hard-  oder  Soft¬ 
warefehler? 

Ausgabe  8/84 

Rudolf  Ott 

Als  Hersteller  von  Zusatzgerä¬ 
ten  für  den  C  64  ist  uns  das  ge¬ 
schilderte  Problem  bekannt. 
Der  Fehler  liegt  im  seriellen  Bus 
des  C  64.  Er  dürfte  nicht  mehr 
auftreten,  wenn  die  Signalleitun¬ 
gen  an  der  6poligen  Buchse  mit 
4,7  kOhm  gegen  Masse  abge¬ 
schlossen  sind. 

Josef  Wildgruber 
Fotronic  GmbH 


Autostart 

Wie  bringe  ich  meine  Pro¬ 
gramme  dazu,  daß  sie  nach 
dem  Laden  von  Diskette  oder 
Kassette  automatisch  starten? 
Ausgabe:  6/84 

Carsten  Bruch 

Ich  habe  noch  eine  ergänzen¬ 
de  Antwort  Um  einen  Autostart 
bei  der  Floppy  hervorzurufen, 
genügt  es,  folgende  Zeile  einzu¬ 
geben: 

LOAD"NAME",8:(SHIFT) 

(RUN/STOP) 

Dabei  müssen  die  Tasten 
(SHIFT)  und  (RUN/STOP)  gleich¬ 
zeitig  gedrückt  werden.  Das 
Programm  »NAME«  wird  dann 
ohne  Eingabe  von  (RETURN)  au¬ 
tomatisch  geladen  und  gestar¬ 
tet. 

Arndt  Grothoff 


Bits  hörbar  machen 

Ist  es  beim  C  64  möglich, 
beim  Laden  von  Datasette  die 
Signale  hörbar  zu  machen? 
Ausgabe:  8/84 

Werner  Frings 

Um  die  Signale,  die  von  der 
Datasette  kommen,  hörbar  zu 
machen,  muß  einfach  mit 
POKE54296.15  die  Lautstärke  im 
SID  auf  15  gesetzt  werden.  Nim 
sind  die  Signale  beim  Laden,  Sa- 
ven  und  Verifyen  über  den  Laut¬ 
sprecher  des  Monitors  zu  hören 
(auch  ^ei  Fast-  und  Turbo  Tape). 

Uno  nun  ein  Nachtrag  zum  Au¬ 
tostart:  Es  gibt  auch  eine  einfa¬ 
chere  Lösung  als  die  von  Ihnen 
beschriebene. 

1.  Programm  einladen  (Disk 
oder  Tsipö) 

2.  PRINT  PEEK(174),PEEK(175) 

3.  Beide  Werte  notieren 

4.  Als  erste  Anweisung  im  Pro¬ 
gramm 

POKE174,  <  l.Wert>  :POKE175, 

<2.Wert>  setzen 

5.  Programm  abspeichern 

6.  NEW 

7.  Ein  kleines  Ladeprogramm 
entwerfen: 

10  LOAD'  '  Name  > ',8  (bei  Disk 
oder 

10  LOAD'  1  Name>'  (bei  Kas¬ 
sette) 

8.  Dieses  Miniprogramm  ab- 
speichem  (bei  Kassette  vor  dem 
Hauptprogramm) 

Soll  nun  das  Hauptprogramm 
mit  Autostart  geladen  werden, 
muß  das  Ladeprogramm  gela¬ 
den  und  mit  RUN  gestartet  wer¬ 
den.  Der  Computer  sucht  darauf 
das  Hauptprogramm,  lädt  und 
startet  es. 

Nun  zur  Funktionsweise: 
Wenn  in  einem  Programm  eme 
LOAD  Anweisung  erfolgt,  lädt 
der  Computer  schon  das  ange¬ 
sprochene  Programm  und  star¬ 
tet  es.  Probleme  tauchen  aller¬ 
dings  auf,  wenn  das  zu  ladende 
Programm  länger  ist  als  das  La¬ 
deprogramm.  Der  Computer 
lädt  zwar  die  Programmdaten 
mit,  »glaubt«  sich  aber  immer 


noch  im  Ladeprogramm,  da  die 
Zeiger  aufs  Programmende  sich 
in  diesem  Fall  nicht  dem  neuen 
Programm  anpassen.  Die  Adres¬ 
sen  174  und  175  enthalten  die 
Zeiger  aufs  Programmende  und 
können  so  mit  den  POKEs  in  der 
ersten  Zeile  angepaßt  werden. 

Dieses  Verfahren  läuft  sowohl 
auf  Diskette  als  auch  auf  Kasset¬ 
te,  allerdings  nicht  mit  Fast-  oder 
Turbo  Tape. 

Stefan  Gossens 

EPROM-Brenner:  Disput 

Mit  Interesse  las  ich  Ihren 
Testbericht  über  EPROM- 
Programmer  in  der  64 'er,  Ausga¬ 
be  8/84. 

Doch  schon  bald  wurde  aus 
dem  Interesse  Unmut.  Unmut 
über  einen  zu  oberflächlichen 
Test,  der  wenig  die  Funktion  der 
Geräte  ausgeleuchtet  hat. 

Als  Hersteller  der  Geräte 
Mod.  V64  und  Mod.  V128  (Fa. 
Jeschke  tritt  als  Wiederverkäu¬ 
fer  dieser  Geräte  auf),  möchte 
ich  hier  ein  wenig  das  Konzept 
erläutern:  Die  EPROM-Pro- 
grammer  sind  für  den  Einsatz 
am  User-Port  vorgesehen.  Das 
hat  drei  große  Vorteile: 

1.  Ein  Gerät  läuft  ohne  Änderung 
an  der  Hardware  auf  zwei  Com¬ 
putern  (nämlich  dem  VC  20  und 
dem  C  64) 

2.  bleibt  der  Expansionport  frei 
für  Steckmodule,  80-Zeichen- 
karten  etc. 

3.  Ist  es  am  User-Port  möglich, 
über  die  herausgeführte  Wech¬ 
selspannung  auf  einfache  Art 
und  Weise  die  Programmier¬ 
spannung  zu  erzeugen.  Ein  ex¬ 
ternes  Netzteil  ist  somit  nicht  nö¬ 
tig,  was  zumindest  ein  lästiges 
Kabel  erspart,  letzten  Endes 
aber  für  den  Kunden  Sicherheit 
darstellt,  da  er  nicht  mit  der 
Netzspannung  in  Berührung 
kommen  kann. 

Da  vor  allem  die  Software  un¬ 
serer  Geräte  bemängelt  wurde, 
auch  hierzu  eine  Stellung¬ 
nahme: 

Es  ist  nicht  sinnvoll,  für  die 
Treibersoftware  Maßstäbe  an- 
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zusetzen  wie  etwa  für  ein  Tele¬ 
spiel. 

Grafik,  Farbe  und  Ton  können 
zwar  ganz  reizvoll  sein,  sind 
aber  für  die  Funktion  der  Soft¬ 
ware  nicht  notwendig  und  bei 
guter  Dokumentation  sogar 
überflüssig. 

Auch  die  Hintergründe  für  be¬ 
stimmte  Befehle  der  Treibersoft¬ 
ware  wurden  im  Test  vernach¬ 
lässigt: 

Eine  Transfer-  (Verschiebe-) 
Funktion  ist  in  unserer  Software 
nicht  eingebaut,  da  sie  nicht  not¬ 
wendig  ist.  Anders  als  bei  ande¬ 
ren  Programmiergeräten  kön¬ 
nen  Sie  den  Speicherbereich, 
aus  dem  das  Quellprogramm 
kopiert  werden  soll,  frei  wählen. 
Dabei  ist  es  auch  möglich,  die 
Programmlänge  beliebig  festzu¬ 
setzen,  sowie  die  Startadresse 
im  EPROM  frei  zu  wählen.  Unse¬ 
re  Treibersoftware  gestattet  Ih¬ 
nen  so  das  Programmieren  ei¬ 
nes  »halben«  EPROMs,  oder  so¬ 
gar  nur  ein  einzelnes  Byte  zu 
programmieren.  Das  Nicht- 
Vorhandensein  von  LOAD-  und 
SAVE-Routinen  hat  folgende 
Gründe: 

Aufgabe  der  Treibersoftware  ist 
in  erster  Linie  die  Bedienung 
des  Programmiergerätes.  So  ist 
zum  Beispiel  das  Kopieren  eines 
EPROMs  mit  der  Treibersoftwa¬ 
re  kein  Problem. 

Für  das  umfassende  Arbeiten 
mit  Maschinenprogrammen  be¬ 
nötigt  der  Anwender  aber  ein 
Monitorprogramm.  Da  ein  Moni¬ 
torprogramm  normalerweise 
LOAD-  und  SAVE-Routinen  ent¬ 
hält,  brauchen  sie  in  der  Trei¬ 
bersoftware  kein  zweites  Mal  in¬ 
stalliert  zu  sein. 

Für  solche  Fälle  kann  ich  nur 
unsere  UNIMENT-Befehlserwei- 
terung  empfehlen,  die  neben 
zahlreichen  neuen  Basic-,  Gra¬ 
fik-,  Sprite-  und  Sound-Befehlen 
sowie  einer  parallelen  Centro- 
nics-Schmttstelle  einen  komplet¬ 
ten  Maschinenmonitor  mit  As¬ 
sembler-,  Lade-,  Speicher-, 
Transfer-Routinen  und  so  weiter 
enthält. 

Auch  die  Treibersoftware  für 
unsere  EPROM-Programmer  ist 
bereits  implementiert,  so  daß 
beim  UNIMENT-Steckmodul 
keinerlei  Software  geladen  wer¬ 
den  muß.  Mit  dem  Einschalten 
des  Computers  stehen  dem  Be¬ 
nutzer  die  oben  genannten 
Funktionen  sofort  zur  Verfü¬ 
gung. 

Hagen  Völzke 

Als  Autor  des  EPROM-Ver- 
gleichstests  in  der  Ausgabe  8/84 
kann  der  oben  abgedruckte 
Brief  der  Firma  Völzke  meiner¬ 
seits  nicht  unbeantwortet  blei¬ 
ben. 

Der  erste  Unmut  stellte  sich 
bei  Herrn  Völzke  wegen  eines 
angeblich  zu  oberflächlichen 
Tests  ein.  Dazu  ist  folgendes  zu 
sagen: 


1)  Ich  besitze  persönlich  seit 
über  einem  halben  Jahr  das  Mo¬ 
dell  V128  und  benutze  es  regel¬ 
mäßig.  Von  einer  Unkenntnis 
des  Gerätes  kann  also  sicher 
nicht  die  Rede  sein. 

2)  Die  meisten  von  H,  Völzke  be¬ 
mängelten  Punkte  werden  im 
Test  angesprochen.  Dazu  im  ein¬ 
zelnen:  Die  Anschlußmöglich¬ 
keit  der  EPROM-Brenner  am 
User-Port  ist  aus  der  Vergleichs¬ 
tabelle  auf  Seite  37  Spalte  2  er¬ 
sichtlich.  Dort  kann  ebenfalls 
gelesen  werden,  daß  die 
EPROMmer  der  Firma  Völzke 
sowohl  für  den  VC  20  als  auch 
den  C  64  eingesetzt  werden  kön¬ 
nen.  Als  wesentliches  Entschei¬ 
dungskriterium  für  die  Testbe¬ 
wertung  ist  die  Tauglichkeit  für 
beide  Computer  aber  sekundär, 
da  nur  sehr  wenige  Computer¬ 
anwender  einen  VC  20  und  ei¬ 
nen  C  64  besitzen.  Die  Anzahl 
derer,  die  dann  noch  EPROMs 
brennen,  scheint  mir  verschwin¬ 
dend  gering. 

Der  zweite  Kritikpunkt  bezieht 
sich  auf  das  Freibleiben  des 
Expansion-Ports  bei  den  Völzke- 
Geräten.  Nun,  daß  es  auch  bei 
einem  EPROM-Brenner  mit  An¬ 
schluß  am  Expansion-Port  zu  kei¬ 
nem  Verlust  des  Expansion- 
Ports  kommen  muß,  zeigt  das 
Gerät  von  Kalawski. 

Der  beste  Beweis  dafür,  daß 
auch  ich  den  Anschluß  einer  zu¬ 
sätzlichen  Stromversorgung 
nicht  für  notwendig  halte,  ist  in 
der  Tatsache  zu  sehen,  daß  der 
Testsieger  von  Roßmöller  eben¬ 
falls  ein  User-Port  Gerät  ist. 

Ein  paar  Worte  sollten  aber 
auch  zur  Software  hinzugefügt 
werden: 

1)  Natürlich  ist  die  Treibersoft¬ 
ware  für  ein  EPROM-Program- 
miergerät  nicht  mit  einem  Tele¬ 
spiel  zu  vergleichen.  Dennoch 
betrachte  ich  die  optische  und 
akustische  Hilfen  geführt  für 
den  Benutzer  als  sinnvoll.  Be¬ 
denkt  man  den  doch  relativ  ho¬ 
hen  Preis  für  EPROMs,  so  ist  die 
Zerstörung  durch  Fehlprogram¬ 
mierung  oder  falsches  Einset¬ 
zen  für  sicherlich  fast  jeden  An¬ 
wender  ein  herber  Verlust. 
Auch  ist  das  wiederholte  Lö¬ 
schen  und  Neuprogrammieren 
eines  falsch  »geschossenen« 
EPROMs  mit  dem  Nachteil  der 
verkürzten  Lebensdauer  des 
EPROMs  verbunden. 

Die  Treibersoftware  der 
Völzke-Geräte  bietet  in  diesem 
Bereich  keinerlei  Sicherheit  (ein 
Freund  hat  wegen  einer  falsch 
eingestellten  Programmier¬ 
spannung  einen  Verlust  von 
über  600  Mark  gehabt).  Viel 
besser  in  Hinsicht  auf  die  Sicher¬ 
heit  ist  der  Testsieger  und  das 
Gerät  von  Kalawski,  wobei  letz¬ 
terer  sogar  den  richtigen  Ein¬ 
setzpunkt  des  EPROMs  optisch 
anzeigt. 

2)  Auch  andere  EPROM- 


Brenner  verfügen  über  die  Fä¬ 
higkeit,  den  Speicherbereich, 
aus  dem  das  Quellprogramm 
kopiert  werden  soll,  frei  zu  wäh¬ 
len. 

3.  Die  weiterhin  von  Herrn  Völz¬ 
ke  angesprochenen  Punkte,  wie 
die  LOAD-  und  SÄVE-Funktion 
oder  der  Einsatz  eines  Monitors 
für  diese  Zwecke  sind  zwar  rich¬ 
tig,  er  vergißt  aber,  daß  für  ein 
solches  Programm  zusätzlich  fi¬ 
nanzielle  Aufwendungen  entste¬ 
hen.  Viel  besser  ist  es  doch, 
wenn  diese  Funktionen,  wie  bei 
unserem  Testsieger,  kostenlos 
mitgeliefert  werden,  da  sie  in 
der  Treibersoftware  implemen¬ 
tiert  sind. 

4)  Herr  Völzke  empfiehlt  für 
oben  genannte  Zwecke  den  Ein¬ 
satz  seiner  Befehlserweiterung 
UNIMENT.  Dafür  sind  aller¬ 
dings  nochmals  99  Mark  auf  den 
Tisch  zu  legen:  Der  Vorteil  die¬ 
ses  Konzeptes  soll  aber  nicht 
verschwiegen  werden.  Sowohl 
die  UNIMENT-Erweiterung  als 
auch  der  Monitor  (der  aus  einem 
riesigen  Softwareangebot  aus¬ 
gewählt  werden  kann)  sind  auch 
ohne  den  EPROMmer  ersetz¬ 
bar.  Rechnet  man  zum  Preis  der 
Völzke-Geräte  den  eines  guten 
Monitors  hinzu,  so  werden  zirka 
300  Mark  fällig.  Dafür  bekommt 
man  aber  auch  schon  unseren 
Testsieger  mit  eingebautem  Mo¬ 
nitor  und  einem  überlegenen 
Konzepi,  das  beispielsweise  die 
Programmierung  der  zukunft¬ 
strächtigen  27256-EPROMs  er¬ 
möglicht. 

(Arnd  Wängler) 


Vielseitiges  Supervoc 
Ausgabe:  6/84 

Alle  Besitzer  einer  VC  1541, 
die  Vokabeln  mit  dem  Pro¬ 
gramm  Supervoc  lernen  wollen, 
können  sich  glücklich  schätzen. 
Das  Programm  muß,  um  auch 
mehrere  Vokabelprogramme  zu 
laden  oder  gleichzeitig  zu 
schreiben,  folgendermaßen  ge¬ 
ändert  werden: 

In  Zeile  220  Diskette  geschrie¬ 
ben,  statt  Kassette.  In  Zeile  230 
muß  der  erste  GOSUB-Befehl  in 
GOSUB  1315  umgeändert  wer¬ 
den. 

1315  PRINT  »Welches  Programm 
soll  geladen  werden?« 

1317  INPUT  P$ 

1330  OPEN  1,8,0,P$ 

1340  INPUT  #1,PS 
1470  OPEN  1,8,1,N$ 

Außerdem:  Wer  kann  mir  einen 
Tip  geben,  wie  man  das  Kopier¬ 
programm  (Disk  Copy),  aus  der 
April-Ausgabe,  zum  Laufen  be¬ 
kommt?  Gibt  es  ein  Vokabel- 
Lernprogramm  für  französische 
Vokabeln? 

Markus  Bluhm 

Gruberzeile  95 

1000  Berlin  20 


Autostart  geknackt 
Ausgabe  8/84,  Seite  98 

Dirk  Rother  irrt  sich,  wenn  er 
behauptet,  Autostartprogramme 
könnte  man  nicht  mehr  stoppen 
und  überarbeiten.  Ein  Autostart¬ 
programm  kann  wie  folgt  ge¬ 
knackt  werden: 

Kassette  in  normalen  Recor¬ 
der  einlegen  und  Autostartpro¬ 
gramm  anhören,  Kassette  in  Da- 
taseite  einlegen,  Counter  auf 
Null  stellen,  Kassette  auf  Anfang 
des  Autostartprogrammes  zu¬ 
rückspulen,  Autostartprogramm 
einladen,  wenn  Counter  auf  Null 
steht  dann  Stopp-Taste  an  Data- 
sette  drücken,  andere  Kassette 
mit  dem  vorher  abgeSAVEten 
Kurzprogramm:  10PRINT1  '  : 

END  einlegen  und  Play-Taste 
drücken.  Nach  ein  paar  Sekun¬ 
den  erscheint  auf  dem  Bild¬ 
schirm  READY.  Das  Autostart¬ 
programm  läßt  sich  listen,  das 
nachfolgende  Programm  einla¬ 
den,  überarbeiten  und  kopie¬ 
ren.  Das  Autostartprogramm 
kann  auch  wieder  abgespei¬ 
chert  werden. 

Ich  glaube  mit  an  Sicherheit 
grenzender  Wahrscheinlichkeit, 
daß  Ihr  es  Euch  nicht  traut,  den 
Leserbrief  abzudrucken.  Aber 
warum  denn  nicht?  Ihr  bringt  so 
viele  Listings  wie  man  das  und 
jenes  kopieren  kann  und  ein 
paar  Seiten  weiter: 

»Wir  wollen  unsere  Leser  darauf 
aufmerksam  machen,  daß  ver¬ 
kaufen,  tauschen,  etc.«.  Das  ist  so 
wie:  Hier  hast  du  den  Schlüssel 
zum  Tresor,  aber  aufschließen 
darfst  du  ihn  nicht.  Überlegt 
doch  mal  selber  oder  versucht 
es  zumindest  einmal! 

Ein  Knackie 

Lieber  Knackie,  Sie  sehen,  wir 
haben  nachgedacht  und  uns  ge¬ 
traut. 

Rettung,  wenn  ISM  64 
abstürzt 

Bei  der  Anwendung  des  Datei¬ 
verwalters  ISM  ist  es  mir  bei  ei¬ 
ner  damit  verbundenen 
Druckerbenutzung  auch  pas¬ 
siert,  daß  der  ISM  abstürzte. 
Nach  einigem  Herumprobieren 
bin  ich  auch  darauf  gekommen, 
daß  durch  ein  Initialisieren  der 
Diskette  der  Betrieb  fortgesetzt 
werden  kann.  Diese  Lösung  hat 
allerdings  in  keiner  Weise  be¬ 
friedigt,  und  so  wandte  ich  mich 
an  den  Hersteller,  die  SM- 
Software  AG.  Nach  einer  Woche 
bekam  ich  die  erlösende  und 
sehr  einfache  Antwort. 

Nachdem  der  Druckerkanal 
geöffnet  wurde,  muß  vor  dem 
nächsten  ISM-Befehl  der  Basic- 
Befehl  POKE  186, GN  eingege¬ 
ben  werden.  GN  ist  dabei  die 
Gerätenummer  der  Floppy,  also 
meistens  8. 

Frank  Götze 
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Mit  506  Zeichen  auf  dem  Bildschirm  sind  die  Grenzen  recht  eng  gesetzt.  VC  20-Be- 
sitzer  konnten  nur  neidisch  auf  den  C  64  mit  1000  Zeichen  oder  den  CBM  8032 
mit  2000  Zeichen  schauen.  Mit  einer  40/80-Zeichenkarte  kann  es  der  VC  20  jedoch 
leicht  auch  mit  diesen  Computern  aufnehmen. 


Um  40  oder  80  Zeichen  pro  Zeile 
mit  dem  VC  20  zu  realisieren,  ist 
auch  eine  Software-Lösung 
möglich.  Sie  ist  jedoch  sehr  aufwen¬ 
dig,  da  neben  dem  Zeichensatz 
auch  weite  Teile  des  Betriebssy¬ 
stems  geändert  werden  müssen.  Au¬ 
ßerdem  ist  diese  Lösung  sehr  lang¬ 
sam  und  nicht  für  professionelle  An¬ 
wendungen  geeignet. 

Eine  Hardware-Lösung  ist  dage¬ 
gen  leichter  zu  handhaben  (nur  Kar¬ 
te  einstecken)  und  bietet  zusätzliche 
Leistungen.  Wir  haben  die  40/80- 
Zeichenkarte  MR  40/80  (Bild  1)  von 
Roos-Elektronik  getestet. 

Wie  bedient  man  nun  diese 
40/80-Zeichenkarte,  und  was  kann 
sie? 

Aus  der  sehr  mageren  Beschrei¬ 
bung  kann  man  leider  nur  wemg  ent¬ 
nehmen.  Die  MR  40/80  stellt  jeden¬ 
falls  keine  Farben  mehr  am  Bild¬ 
schirm  dar.  Reverse  Schrift  ist  je¬ 
doch  weiterhin  möglich.  Im 
40-Zeichenmodus  smd  sowohl  die 
Schrift  wie  auch  die  Grafikzeichen 
am  Fernseher  noch  einwandfrei  les¬ 
bar  (Bild  2).  Bei  80  Zeichen  je  Zeile 
tut  man  sich  jedoch  am  Fernseher 
recht  schwer  (Bild  3),  deshalb  ist  ein 
Monitor  unbedingt  zu  empfehlen. 

Nach  dem  Einstecken  der  MR 
40/80  in  den  Expansionport  des  VC 
20  wird  an  der  fünfpoligen  DIN- 


Bild  1.  Die  MR  40/80-Karte  macht  aus  dem  VC  20 

Buchse  der  Karte  ein  Monitor  oder 
der  HF-Modulator  für  den  Fernse¬ 
her  angeschlossen.  Nach  dem  Ein¬ 
schalten  meldet  sich  der  VC  20  wie 
gewohnt,  jedoch  mit  einer  Bild¬ 
schirmbreite  von  40  Zeichen  und  oh¬ 
ne  Farbe.  Das  Bildschirmformat 
kann  durch  Drücken  bestimmter  Ta¬ 
sten  während  des  Einschaltens  ge- 


Bild  2.  Die  40-Zeichen-Darstellung  ist  am  Fernsehgerät  oder  an  einem  einfachen  Monitor  gut  erkennbar. 


ein  professionelles  Gerät 

ändert  werden:  Eine  der  Tasten  0 
bis  8  bestimmt  die  Anzahl  der  Punk¬ 
te  für  den  Zeüenabstand.  Diese 
Funktion  ist  ähnlich  dem  CHR$(14) 
beim  CBM  4001/8001,  das  den  Zeile¬ 
nabstand  um  zwei  Punkte  vergrö¬ 
ßert.  Betätigt  man  eine  der  Tasten  0 
bis  8  in  Verbindung  mit  der  rechten 
SHIFT-Taste,  dann  wird  der  80-Zei- 
chenmodus  aufgerufen. 

Drücken  der  RETURN-Taste  wäh¬ 
rend  des  Einschaltens  verhindert, 
daß  die  MR  40/80  aktiviert  wird.  Die 
Bildschirmausgabe  erfolgt  dann 
über  den  bisherigen  Video-Aus¬ 
gang  des  VC  20,  also  bitte  das  Um¬ 
stecken  des  Kabels  nicht  vergessen. 

Um  das  Bildschirmformat  bei  ein¬ 
geschaltetem  Computer  zu  ändern, 
drückt  man  eine  der  oben  beschrie¬ 
benen  Tastenfolgen  zusammen  mit 
der  RESTORE-Taste.  Das  Umschal¬ 
ten  in  den  80-Zeichenmodus  ist  aber 
etwas  kompliziert;  Man  muß  gleich¬ 
zeitig  die  rechte  SHIFT-Taste,  die 
CTRL-  und  die  RESTORE-Taste 
drücken. 
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VC  20 
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Zes+  W/80-  l&ckemkaAe 


Zurück  in  den  40-Zeichenmodus 
kommt  man  durch  Betätigen  von 
CTRL  und  RESTORE.  Das  Pro¬ 
gramm  bleibt  beim  Hin-  und  Her¬ 
schalten  natürlich  erhalten. 


Sonderfunktionen  auf  den 
Funktionstasten 


Alle  acht  Funktionstasten  werden 
durch  die  MR  40/80  mit  speziellen 
Sonderfunktionen  für  die  Textverar¬ 
beitung  belegt  (Tabelle  1).  Unter  an¬ 
derem  sind  ein  Tabulator  und  zu¬ 
sätzliche  Lösch-  und  Cursorsteuer¬ 
funktionen  vorhanden.  Alle  diese 


43000  wird  dieser  Speicher  dem 
Basic-RAM  hinzugefügt. 

Für  viele  Programme  ist  es  durch¬ 
aus  sinnvoll,  die  oberste  Zeile  des 
Bildschirms  zu  schützen.  Die  Zeile 
bleibt  dann  unverändert  stehen  und 
scrollt  auch  nicht  aus  dem  .Bild¬ 
schirm  heraus,  So  bleiben  Über¬ 
schriften  oder  Bedienungshilfen 
ständig  sichtbar. 

Die  MR  40/80-Karte  ist  recht  über¬ 
sichtlich  aufgebaut  und  mit  einem 
Video-Controller,  einem  2  KByte- 
CMOS-RAM  sowie  mit  zwei 
EPROMs  (2716  und  2732)  und  diver¬ 
sen  Logikbausteinen  bestückt.  Alle 
IC  sind  gesockelt  (!)  und  können  im 
Schadensfall  leicht  selb  1  ausge¬ 
wechselt  werden.  Die  Steuersoftwa- 


laute  recht  sinnvoll,  Ein  entspre¬ 
chendes  EPROM  ist  auf  Anfrage 
beim  Hersteller  erhältlich. 

Die  Platine  macht  einen  recht  sta¬ 
bilen  Eindruck.  Leider  hat  es  für  ein 
Gehäuse  bei  dem  immerhin  249 
Mark  teuren  Gerät  nicht  mehr  ge¬ 
reicht. 

Fazit:  Diese  40/80-Zeichenkarte  ist 
für  professionelle  Anwendungen 
durchaus  geeignet.  Die  40  Zeichen 
pro  Zeile  sind  am  Fernseher  gut  les¬ 
bar,  die  80  Zeichen  Darstellung  je¬ 
doch  ist  ohne  Augenschäden  auf 
Dauer  nur  mit  einem  Monitor  mög¬ 
lich.  Da  die  Farbe  fehlt,  ist  die  Karte 
für  alle  Arten  von  Spielen  weniger 
geeignet. 

(Christian  Q.  Spitzner/ev) 


Tabelle  1.  Die  Belegung  der  Funktionstasten 

Fl  setzt  den  Cursor  auf  die  letzte 
Bildschirmzeile 

F2  schaltet  die  MR  40/80-Karte  oh¬ 
ne  Programmverlust  aus 
F3  löschte  den  Bildschirm  hinter 
dem  Cursor 

F4  bewirkt  das  Einfügen  einer 
Zeile  an  der  Cursorposition 
F5  springt  zur  nächsten  Tabulator¬ 
marke 

F6  erweitert  das  Basic-RAM  um 
die  512  Bytes  des  Video-RAM 
F7  löscht  alles  rechts  vom  Cursor 
F8  löscht  alle  Zeichen  links  vom 
Cursor 


Bild  3.  Bei  80  Zeichen  pro  Zeile  wird  es  bei  einem  Fernseher  kritisch.  Hier  hilft  nur  ein  monochromer  Moni¬ 
tor  der  höheren  Preisklasse. 


Funktionen  Fl  bis  F8  können  natür¬ 
lich  auch  vom  Programm  aus  aufge¬ 
rufen  werden.  Dies  geschieht  mit 
»PRINT  CHR$(133  ...  140)«. 

Zu  beachten  ist  die  Lage  des  Bild¬ 
schirmspeichers.  Die  MR  40/80  ent¬ 
hält  ein  eigenes  Video-RAM  von  2 
KByte  Umfang,  das  ab  Speicher¬ 
adresse  43008  ($Ä800)  liegt.  Da  der 
normale  Video-Speicher  nicht  be¬ 
nötigt  wird,  stehen  zusätzliche  512 
Bytes  RAM  zur  Verfügung.  Mit  SYS 


re  im  2716-EPROM  belegt  den 
Adreßbereich  von  $A000  bis  $A7FF. 
Im  2732-EPROM  befindet  sich  der 


Aufbau  der  Platine 


Zeichengenerator,  der  natürlich 
auch  leicht  ausgewechselt  werden 
kann.  Für  die  Text  Verarbeitung  wä¬ 
ren  beispielsweise  deutsche  Um- 


Gesamtüberblick 

Geschwindigkeit : 

sehr  gut 

Bedienung  .  .  .  . : 

sehr  gut 

Beschreibung  ,  , : 

mäßig 

Bildqualität  (40)  : 

sehr  gut 

Bildqualität  (80)  : 

gut 

Gesamturteil  .  .  . : 

gut 
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Farbig  plottcn 
und  drucken 


Seitdem  moderne  Matrixdrucker  voll 
grafikfähig  sind,  haben  Plotter  es 
schwer,  sich  durchzusetzen.  Auch  der 
relativ  hohe  Preis  wirkte  leicht  ab¬ 
schreckend.  Der  X  100  ist  jedoch 
von  der  Leistung  als  auch  vom  Preis, 
für  den  C  64-Benutzer  interessant. 


Einen  Plotter  in  Aktion  zu  sehen, 
ist  ein  aufregendes  Erlebnis. 
Das  beweisen  die  Menschen¬ 
trauben,  die  zum  Beispiel  bei  Mes¬ 
sen  und  Fachausstellungen  so  ei¬ 
nem  Gerät  bei  der  Arbeit  fasziniert 
zuschauen.  Man  überlegt  sich  un¬ 
willkürlich,  ob  man  sich  nicht  auch 
so  einen  Zeichenkünstler  anschaf- 
fen  sollte.  Doch  wenn  dann  Preise 
genannt  werden,  sinkt  die  Kauflust 
oft  ganz  erheblich.  Aber  ebenso  wie 
die  Matrixdrucker,  brechen  auch 
die  Plotter  in  einen  bisher  ungesät¬ 
tigten  Markt  ein:  Sie  werden  immer 
preiswerter,  bieten  aber  trotzdem 
beachtliche  Leistungen.  Der  Ad- 
comp  X100  ist  solch  ein  Gerät  (Preis: 
zirka  2  000  Mark). 

Auf  den  ersten  Blick  verwechselt 
man  ihn  glatt  mit  einem  üblichen  Ma¬ 
trixdrucker.  Ein  ähnliches  Gehäuse, 
ein  Handrad  an  der  Seite,  Tractor- 
einheit  und  Gummiwalze.  Doch 
schon  ein  etwas  genauerer  Blick  un¬ 
ter  die  Gehäuseabdeckung  zeigt 
den  wichtigen  Unterschied  auf:  An¬ 
stelle  des  Druckkopfes  sieht  man  4 
Farbstifte,  die  in  einem  Revolverein¬ 
satz  stecken.  Spätestens  jetzt  wird  je¬ 
dem  klar,  daß  er  einen  Plotter  vor 
sich  stehen  hat. 

Der  X100  wird  mit  einer  deutschen 
Anleitung  geliefert.  Speziell  für  den 
C  64-Besitzer  liegt  noch  eine  zusätzli¬ 
che  Broschüre  bei,  die  auf  die  spe¬ 
ziellen  Befehle  des  Plotters  und  auf 
die  Programme  der  ebenfalls  beilie¬ 
genden  Demodiskette  eingeht  und 
sie  beschreibt.  Außerdem  befindet 
sich  auf  der  Diskette  ein  Drucker¬ 


treiber-Programm,  das  die  Centro- 
nics-Schnittstelle  des  Plotters  an¬ 
steuert.  Der  Plotter  wird  mit  einem 
Kabel  über  den  User-Port  des  C  64 
verbunden.  Die  Treibersoftware 
entspricht  übrigens  df '  <  Programm 
aus  Heft  7. 

Aktiviert  wird  der  X100  über  die 
bekannten  OPEN  n,4-Befehle  wie 
bei  den  Matrixdruckern.  Damit  ist 
es  auch  möglich,  Texte  zu  plotten,  al¬ 
so  auch  Listings.  Allerdings  können 
keine  Commodore-Grafik-  und 
-Steuerzeichen  dargestellt  werden. 
Kommen  wir  jedoch  zu  den  Plott- 
möglichkeiten. 

Es  können  selbstverständlich  Li¬ 
nien  in  jeder  Richtung  gezeichnet 
werden.  Dabei  ist  sowohl  eine  relati¬ 
ve  als  eine  absolute  Bewegung  mög¬ 
lich.  Linien  lassen  sich  durchgezo¬ 
gen,  aber  auch  gestrichelt  zeich¬ 
nen.  Der  Abstand  zwischen  den 
Teilstrichen  kann  eingestellt  wer¬ 
den.  Text  läßt  sich  an  jeder  beliebi¬ 
gen  Stelle  setzen.  Auch  die  Schrift¬ 
größe  und  die  Schreibrichtung  sind 
definierbar,  wobei  jedes  Zeichen 
zwischen  1  und  255  mm  groß  sein 
und  in  4  Richtungen  gedreht  wer¬ 
den  kann.  Oft  benötigte  Routinen 
wie  Achsen,  Kreise  und  Histogram¬ 
me  (Rechtecke)  sind  auch  imple¬ 
mentiert;  umständliche  Unterpro¬ 
gramme  können  deswegen  entfal¬ 
len.  Die  Lage  und  Parameter  der 
einzelnen  Figuren  sind  frei  wählbar. 
Selbstverständlich  kann  man  zu  je¬ 
der  Zeit  zu  einer  der  anderen  vier 
Farben  wechseln.  Die  Farbstifte,  mit 
Druckflüssigkeit  gefüllte  Kugelmi¬ 


nen,  sind  ausreichend  dünn.  Sie  be¬ 
sitzen  laut  Handbuch  eine  »Lebens¬ 
dauer«  von  mehr  als  800  Meter.  Auch 
in  der  kleinsten  Schriftart  (1  mm) 
sind  die  Zeichen  noch  gut  zu  lesen 
(mit  Lupe).  Das  bewirkt  aber  auch 
die  Schrittweite  von  wahlweise  0,1 
beziehungsweise  0,05  mm.  Die  Wie¬ 
derholgenauigkeit  beträgt  0,2  mm 
bei  Positionierung  über  50  mm  und 
die  Positionierungsgenauigkeit  er¬ 
reicht  zirka  1%  bei  einer  Positionie¬ 
rung  über  100  mm,  Die  Plottge- 
schwindigkeit  reicht  von  120  mm/ 
sec,  bei  0,1  mm  Schrittweite,  bis  60 
mm/sec  bei  0,05  mm  Schrittweite. 
Der  effektive  Plottbereich  liegt  in 
beiden  Hauptrichtungen  (X-  und  Y- 
Achse)  bei  20  cm. 


Bewertung 


Der  X100  ist  ein  Plotter  nicht  nur 
für  den  Hobby-Einsatz.  Durch  sein 
Papierformat,  DIN  A4,  mit  wahlwei¬ 
ser  Verwendung  von  Einzelblatt 
oder  Endlospapier  wird  er  vielseitig 
einsetzbar.  Seine  technischen  Daten 
genügen  gehobenen  Ansprüchen, 
auch  wenn  sie  selbstverständlich 
nicht  an  die  echte  Profiklasse  heran¬ 
reichen.  Ein  kleiner  Tip  noch  für  VC 
1520-Besitzer:  Alle  Befehle  des  VC 
1520  werden  auch  vom  X  100  ver¬ 
standen.  Lediglich  einige  Längen¬ 
angaben  müssen  wegen  dem  unter¬ 
schiedlichen  Plottbereich  etwas  ge¬ 
ändert  werden.  (gk) 
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Ein  Drucker 
für  alle  Fälle = 
Epson  FX  QO 


Der  Epson  FX  80  mit  eingebautem  Görlitz-Interface  Qgr  pX  ß0  ist  eill  MatliXtlrilCker,  der 

kaum  noch  Wünsche  offen  läßt.  Zur  Zeit  seiner  Einführung  eine  Sensation,  gehört  er 
aber  auch  heute  noch  immer  zu  den  Besten  seiner  Klasse. 


Jeder  C  64-Besitzer  wird  sich  ir¬ 
gendwann  einmal  einen  Druk- 
ker  wünschen,  entweder,  um  sei¬ 
ne  selbst  erstellten  Programme  aus¬ 
zudrucken,  oder  um  Briefe,  Listen 
und  andere  wichtige  Dinge  zu  Pa¬ 
pier  zu  bringen.  Es  stellt  sich  dann 
die  Frage,  was  der  Drucker  leisten 
soll.  Nicht  zuletzt  hat  da  das  eigene 
Konto  einen  wichtigen  Diskussions¬ 
beitrag  zu  leisten. 

Eines  kann  schon  vorausgeschickt 
werden:  Es  wird  schwer  fallen,  alle 
Möglichkeiten  des  FX  80  auszunut¬ 
zen.  Seine  vielen  Druckfunktionen 
dürften  auch  die  meisten  Textverar¬ 
beitungsprogramme  überfordern. 
In  der  Praxis  wird  es  jedoch  so  sein, 
daß  man  sich  einige  wichtige  Schrift¬ 
arten  merkt  und  nur  mit  diesen  ar¬ 
beitet.  So  kann  man  mit  einfachen 
Befehlen  zum  Beispiel  Breitschrift, 
Schmalschrift,  Elite,  Fettdruck,  Dop¬ 
peldruck,  Proportionaldruck  und 
Kursivschrift  wählen.  Viele  dieser 
Druckarten  sind  auch  untereinan¬ 
der  mischbar.  Natürlich  läßt  sich 
auch  der  Zeilenabstand  fast  stufen¬ 
los  verstellen  und  der  Papiertrans¬ 
port  durch  einfache  Steuersignale 
variieren.  Tabulatoren  lassen  sich 
vertikal  und  horizontal  einstellen, 
ebenso  wie  der  linke  und  rechte 
Druckrand.  Wem  der  Drucker  zu 
schnell  ist,  der  kann  ihn  durch  einen 
Befehl  auf  halbe  Geschwindigkeit 
drosseln.  Die  neun  internationalen 
Zeichensätze  ASCII,  französisch, 
deutsch,  englisch,  amerikanisch, 
schwedisch,  dänisch,  japanisch  und 
italienisch  lassen  sich  ebenso  ein- 
stellen  wie  die  Papierlänge,  die  in 
Zeilen  oder  Zoll  angegeben  werden 
kann.  Wem  die  internationalen  Zei- 
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chensätze  nicht  reichen,  der  kann 
sich  selbst  welche  entwickeln.  Der 
frei  ladbare  Zeichengenerator  ist  2 
KByte  groß  und  kann  auch  abge¬ 
schaltet  werden.  Falls  kein  eigener 
Zeichensatz  geladen  wird,  dient  der 
Speicher  als  Druckerpuffer.  Da¬ 
durch  kann  man  schon  mit  dem 
Computer  Weiterarbeiten,  . .  enn  der 
FX  noch  zu  tun  hat.  Die  Grafikfähig¬ 
keit  des  Epson  braucht  eigentlich 
nicht  weiter  betont  zu  werden.  64 ’er- 
Leser  finden  ab  und  zu  einige  Bei¬ 
spiele  einer  hochauflösenden  Gra¬ 
fik,  die  der  FX  80  gedruckt  hat. 

Innerhalb  seines  Gehäuses  befin¬ 
den  sich  zwei  DIP-Schalter,  mit  de¬ 
nen  sich  einige  Möglichkeiten  fest 
einstellen  lassen,  so  daß  nach  dem 
Einschalten  der  gewünschte  Zu¬ 
stand  anliegt.  Folgende  Schalter 
können  gesetzt  werden:  Einstellung 
der  Zahl  der  Druckspalten  (80  und 
132  Spalten  pro  Zeile),  Form  der  Null 
(durchstrichen  oder  nicht),  Papier¬ 
endeerkennung  an  und  aus,  Sper¬ 
ren  oder  freigeben  des  Zeichenge¬ 
nerators,  Fettdruck  oder  Normal¬ 
druck  nach  dem  Einschalten  sowie 
die  Wahl  des  Internationalen  Zei¬ 
chensatzes  (1  bis  9).  Der  zweite  DIP- 
Schalter  schaltet  den  Summer,  den 
automatischen  Seitenvorschub  und 
den  automatischen  Zeilenvorschub 
an  und  aus.  Außerdem  kann  em 
Schalter  gesetzt  werden,  der  es  er¬ 
laubt,  den  Drucker  per  Software  an¬ 
zusteuern  oder  abzuschalten.  Lei¬ 
der  sind  diese  Schalter  nur  nach 
dem  Öffnen  eines  Gehäusedeckels 
erreichbar,  jedoch  hat  man  damit 
keine  Schwierigkeiten. 

Etwas,  was  uns  sehr  gefällt,  aber 
auch  manchmal  die  Tränen  in  die 


Augen  schießen  läßt,  ist  die  Hand¬ 
habung  und  Bedienung.  Was  uns 
sehr  gefällt,  ist  die  Papierab rißkan¬ 
te.  Sie  erweist  sich  in  der  Praxis  als 
sehr  vorteilhaft,  weil  lediglich  zirka  2 
cm  über  dem  Druckkopf  das  Papier 
an  einer  Metallschiene  abgerissen 
werden  kann.  Kein  lästiges  Vor¬ 
wärtstransportieren  um  eine  halbe 
Seite  und  damit  Blattverlust  und  an¬ 
schließendes  Neujustieren  der  Per¬ 
forationskante.  Auch  Zurückdrehen 
des  Papiers  ist  ohne  Probleme  mög¬ 
lich.  Nur  das  Einziehen  von  neuem 
gelochtem  Endlospapier  über  den 
Tractor  erfordert  manchmal  eme 
Engelsgeduld.  Wenn  es  nicht  auf 
Anhieb  klappt  und  sich  eventuell  so¬ 
gar  Papierfetzen  zwischen  den 
schwer  zugänglichen  Tractoren  ver¬ 
fangen,  geht  die  Fummelei  mit  Pin¬ 
zette  oder  anderen  spitzen  und  dün¬ 
nen  Werkzeugen  los.  Um  solchen 
Ärger  nicht  erst  aufkommen  zu  las¬ 
sen,  muß  man  beim  Papierabzug 
sehr  vorsichtig  und  akkurat  Vorge¬ 
hen.  Dann  klappt  es  allerdings  sehr 
gut.  Beim  Einzelblatteinzug  hinge¬ 
gen  gibt  es  gar  keine  Probleme. 

Der  FX  80  ist  ein  Drucker,  der  es  in 
sich  hat,  Bezogen  auf  seinen  Preis 
(um  1 500  Mark  ohne  Interface)  und 
seine  Nutzungsfähigkeiten  ist  er  ein 
Matrixdrucker,  der  keine  Konkur¬ 
renz  zu  scheuen  braucht.  Durch  sei¬ 
ne  Verbreitung  haben  sich  auch 
schon  mehrere  Fremdhersteller  be¬ 
müht,  entsprechende  Schnittstellen 
zum  C  64  zu  entwickeln.  Mit  dem 
richtigen  Interface  können  nicht  nur 
die  Fähigkeiten  des  FX  voll  ausge¬ 
nutzt,  sondern  sogar  noch  erweitert 
werden. 

(gk) 
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H-R-5C : 

m  NICHT 

ZU  H-ÖR6N 

Der  Brother  HR-5C  ist  ein  Thermodrucker,  der  aber  auch  mit  normalem  Papier 
arbeiten  kann.  Er  ist  zwar  keine  Schönheit,  aber  dafür  klein  und  vor  allem  sehr  leise. 


Mit  den  Maßen  303(B)*174(H)*65 
(T)  mm  und  einem  Gewicht  von 
1,6  kg  gehört  er  zu  den  ganz 
kleinen.  Er  paßt  somit  in  die  kleinste 
Ecke.  Auch  sonst  wird  der  HR-5C 
keine  großen-  Schwierigkeiten  be¬ 
reiten.  Das  fängt  bei  der  Stromver¬ 
sorgung  an:  wahlweise  über  ein 
Netzteil  oder  über  Batterien,  die  mit¬ 
geliefert  werden.  Falls  diese  durch 
häufige  Benutzung  verbraucht  sein 
sollten,  ertönt  ein  eingebauter  Sum¬ 
mer,  der  zum  Batteriewechsel  auf¬ 
fordert.  Im  Gegensatz  zu  den  ande¬ 
ren  »Brüdern«  besitzt  der  HR-5C  je¬ 
doch  keine  Tastatur.  Damit  ist  die 
Wahlmöglichkeit  Batterie  oder  Netz¬ 
teil  nicht  mehr  so  interessant,  Denn 
der  Computer  muß  ja  angeschlos¬ 
sen  sein,  um  den  Drucker  arbeiten 
zu  lassen.  Und  dieser  Anschluß  ist 
eine  große  Stärke  der  Brother 
Drucker.  Sie  besitzen  eine  Schnitt¬ 
stelle,  die  voll  kompatibel  ist  mit  dem 
Commodore-Zeichensatz.  Das 
schließt  sämtliche  Grafikzeichen 
ein.  Sie  werden  so  gedruckt,  wie  sie 
auch  auf  dem  Bildschirm  zu  sehen 
sind. 

Da  der  HR-5C  ein  Thermodrucker 
ist,  wird  wärmeempfindliches  Pa¬ 
pier  benötigt.  Es  sei  denn,  man  legt 
eine  mitgelieferte  Farbbandkasset¬ 
te  ein.  Dann  ist  es  auch  möglich,  auf 
normales  Papier  zu  drucken.  Aller¬ 
dings  sollte  darauf  geachtet  wer¬ 
den,  möglichst  glattes  Papier  zu  ver¬ 
wenden.  Papier  mit  rauher  Oberflä¬ 
che  (wie  zum  Beispiel  teures  Deko¬ 
rationspapier  mit  Textilfasern)  kann 


zu  Problemen  führen.  Es  kann  Pa¬ 
pier  auf  Rollen  verwendet  werden 
(eine  volle  Rolle  wird  mit  geliefert), 
aber  auch  Einzelblatteinzug  ist  mög¬ 
lich.  Und  der  Papiereinzug  ist  denk¬ 
bar  einfach  und  problemlos.  Auch 
wird  ein  akustisches  Signal  gege¬ 
ben,  wenn  kein  Papier  anliegt,  Pa¬ 
pierende  oder  Farbbandende  er¬ 
reicht  ist.  außerdem  buchtet  die 
Warnlampe  dann  riöcn  auf.  Der 
Summer  läßt  sich  über  leicht  er¬ 
reichbare  DIP-Schalter  abschalten. 
Eine  sinnvolle  Absicherung:  Auch 
im  abgeschalteten  Zustand  ertönt 
der  Summer  bei  schwachen  Batte¬ 
rien. 

Mit  einem  weiteren  DIP-Schalter 
läßt  sich  der  Zeilenabstand  von  1/6 
auf  1/9  Zoll  umstellen.  Damit  sind 
die  hardwareseitigen  Einstellmög¬ 
lichkeiten  aber  schon  vorbei.  Alle 
Einstellungen,  die  das  Schriftbild 
betreffen,  müssen  vom  Computer 
übertragen  werden. 

Der  Brother  HR-5C  wird  vom 
Computer  mit  den  gewohnten 
OPEN-Befehlen  unter  der  Geräte¬ 
adresse  4  aktiviert.  Dabei  kann 
durch  die  Wahl  der  Sekundäradres¬ 
se  entweder  der  Großschrift/ Gra¬ 
fikmodus  oder  der  Klein-/Groß- 
schriftmodus  eingestellt  werden. 
Auch  der  reverse  Ausdmck  ist  mög¬ 
lich  (CFIR$(18)).  Mit  CHR$(14)  wer¬ 
den  Zeichen  mit  doppelter  Breite 
ausgegeben.  Eine  Besonderheit  ist 
die  Möglichkeit,  sich  ein  eigenes 


Zeichen  definieren  zu  können.  Ein 
Zeichen  wird  mit  7  DATA-Werten  be¬ 
schrieben.  Auf  die  gleiche  Art  und 
Weise  funktioniert  das  übrigens  mit 
den  Commodore  Druckern  VC  1526 
und  MPS  802.  Durch  diese  Einzelna- 
delansteuerung  müßte  es  auch 
möglich  sein,  sich  hochauflösende 
Grafiken  ausdrucken  zu  lassen, 
auch  wenn  das  recht  mühsam  und 
langsam  sein  würde.  Apropos  Ge¬ 
schwindigkeit:  Bei  30  Zeichen  pro 
Sekunde  braucht  man  schon  einige 
Geduld.  Diese  Zeit  wird  noch  erhöht 
durch  die  geringe  Geschwindigkeit 
des  Thermokopfes  beim  Zurückfah¬ 
ren  zum  Zeilenanfang  und  durch 
das  Weiterspulen  des  Farbbandes 
nach  jeder  Zeile.  Denn  das  Farb¬ 
band  ist  ein  Wegwerf-Band,  es  kann 
nur  einmal  verwendet  werden. 

Der  Brother  HR-5C  ist  besonders 
dort  zu  empfehlen,  wo  der  Geldbeu¬ 
tel  nicht  allzu  dick  ist  (Preis  zirka 
500  Mark)  und  wo  sehr  großer  Wert 
auf  geringe  Geräuschentwicklung 
gelegt  wird.  Ein  weiteres  Plus  ist  die 
vollständige  Kompatibilität  zum 
Cornmodore-Zeichensatz,  Eine  Ein¬ 
schränkung  stellt  die  Druckge¬ 
schwindigkeit  dar  und  die  fehlende 
Möglichkeit,  normales  gelochtes 
Endlospapier  zu  verwenden.  Seine 
Druckmöglichkeiten  sind  sehr  ein¬ 
fach.  Sie  beschränken  sich  auf  Re¬ 
versdruck  und  Breitschrift.  Zusam¬ 
mengefaßt:  der  HR-5C  ist  ein  einfa¬ 
cher  Thermodrucker  für  einfache 
Anwendungen.  (gk) 
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"AR  DER 
4  5ICH  HAT 

Drucker  müssen  schon  einiges  bieten,  um 
konkurrenzfähig  zu  sein.  Der  Drucker  Delta 
10  von  Star  braucht  sich  dabei  nicht  zu 
verstecken. 


Nach  dem  Äuspacken  des 
Druckers  ist  man  zuerst  einmal 
überrasch!  von  der  Anzahl  der 
mitgelieferten  Einzelteile.  Das  reich¬ 
haltige  Zubehör  findet  man  norma¬ 
lerweise  nicht  bei  vergleichbaren 
Druckern.  Abgesehen  von  den 
sonst  auch  üblichen  Beigaben  wie 
Farbband,  Kunstoffdeckel  und 
Handbuch  erhält  man  auch  noch 
zwei  verschiedene,  gleichzeitig  ver¬ 
wendbare  Papierführungen,  einen 
Rollenhalter  für  Endlospapier  auf 
Rolle  und  zusätzliche  Reservesiche- 
rurigen. 

Im  ersten  Moment  sieht  das  etwas 
verwirrend  aus.  Wohin  mit  den  gan¬ 
zen  Teilen?  Im  Handbuch,  wird  man 
schnell  fündig.  Schon  beim  Durch¬ 
blättern  erkennt  man  an  den  Illustra¬ 
tionen,  wie  alles  zusammengehört, 
die  Beschreibungen  sind  fast  unnö¬ 
tig,  doch  sehr  exakt.  Folgerichtig  be¬ 
ginnt  es  bei  der  Montage  der  einzel¬ 
nen  Zubehörteile,  beschreibt  die 
Grundeinstellung  des  Gerätes,  wie 
man  sie  ändert  und  erst  danach  die 
Möglichkeiten,  das  Druckbild  zu 
verändern.  Am  Ende  werden  einige 
(der  etwas  klein  geratenen)  Tabel¬ 
len  erklärt  und  Beispiele  zu  den  ver¬ 
schiedensten  Druckbefehlen  gege¬ 
ben,  so  daß  auch  ein  Unerfahrener 
auf  diesem  Gebiet  nur  selten 
Schwierigkeiten  haben  wird.  Das 
Handbuch  —  es  liegt  in  englisch  und 
in  deutsch  vor  —  macht  insgesamt  ei¬ 
nen  guten  Eindruck.  Auch  wenn  es 
nicht  mit  einem  Glanzumschlag  und 
Ringbuchlochung  aufwartet. 

Der  Delta  10  (Preis  zirka  1750 
Mark)  kann  gelochtes  Endlospapier 
ebenso  verarbeiten  wie  einzelne 
Blätter  und  Papier  auf  Rollen.  Die 
zum  Umstellen  notwendigen  Tätig¬ 
keiten  sind  problemlos,  so  etwa  die 
Montage  und  Demontage  der  Trac- 
toreinheit.  Dieser  Vorteil  wird  je¬ 
doch  mit  einem  Nachteil  erkauft: 
Eben  weil  die  Tractoreinheit  oben 
sitzt,  also  das  Papier  zieht  und  nicht 
schiebt,  gibt  es  keine  nützliche  Pa¬ 
pierabrißkante  in  der  Nähe  des 
Druckkopfes.  Zum  Abreißen  eines 


Blattes  muß  es  weitertransportiert 
werden  bis  zum  Ende  des  Kunstoff- 
deckels.  Daß  ein  Zurückdrehen  des 
Papiers  in  Verbindung  mit  der  Trac¬ 
toreinheit  nicht  möglich  ist,  ist  ärger¬ 
lich  und  kostet  jedesmal  ein  unnöti¬ 
ges  Blatt. 


Zwei  Schnittstellen 


Selten  findet  man  bei  Druckern 
standardmäßig  zwei  Schnittstellen. 
Die  Star-Familie  besitzt  denn  auch 
eine  Centronics-  und  eine  RS232- 
Schnittstelle.  Über  DIP-  Schalter  kön¬ 
nen  sie  umgeschaltet  werden.  Der 
Delta  10  besitzt  3  verschiedene  DIP- 
Schalter.  Leider  ist  davon  nur  einer 
von  außen  zugänglich,  die  anderen 
beiden  erreicht  man  nach  Demonta¬ 
ge  des  Gehäusedeckels. 

Der  Delta  10  ist  mit  einem  Stan¬ 
dard-Zeichengenerator  (ROM)  und 
einem  freiladbaren  Zeichengenera¬ 
tor  (RAM)  ausgestattet.  Mit  Hilfe  des 
ladbaren  Zeichengenerators  ist  es 
möglich,  sich  bis  zu  192  Zeichen 
nach  eigenem  Wunsch  zu  generie¬ 
ren.  Außerdem  lassen  sich  durch 
Ansteuern  der  einzelnen  Nadeln 
hochauflösende  Grafiken  erzeugen 
(Bit-Image-Graphicmode).  Es  exi¬ 
stieren  vier  verschiedene  Modi,  von 
einfacher  Dichte  mit  480  Punkten  bis 
hin  zu  1920  Punkten  pro  Zeile. 


Die  Schriftarten 


Der  Drucker  bringt  je  nach  ge¬ 
wählter  Schriftgröße  80,96,136  Zei¬ 
chen  und  bei  doppelter  Breite  40,48 
oder  68  Zeichen  pro  Zeile  zu  Papier. 
Als  Schriftart  kann  man  wählen  zwi¬ 
schen  dem  normalen  ASCII-Stan- 
dard-Zeichensatz,  Kursivschrift  und 
8  verschiedenen  internationalen 
Zeichensätzen.  Außerdem  kann 
man  Pica,  Elite,  komprimierte  und 
gedehnte  Schrift  sowie  Doppel¬ 
druck,  uni-  und  bidirektionalen 
Druck  einstellen.  Auch  ist  es  mög¬ 
lich,  sämtliche  Zeichen  unterstri¬ 


chen,  hochgestellt  (superscript)  und 
tief  gestellt  (subscript)  darzustellen. 

Es  existieren  einige  Einstellmög¬ 
lichkeiten  zum  vertikalen  Zeilenvor¬ 
schub.  Der  Zeüenabstand  läßt  sich 
bis  zu  einer  Stufe  von  1/144  Inch  ein¬ 
stellen.  Auch  der  Seitenvorschub 
läßt  sich  variieren.  Man  bestimmt 
die  Länge  des  Papiers  bis  zur  Perfo¬ 
ration,  kann  einen  Seitenvorschub 
kurz  vor  Ende  des  Blattes  program¬ 
mieren  und  die  Position  bestimmen, 
die  die  erste  Zeile  eines  Blattes  ha¬ 
ben  soll.  Selbstverständlich  lassen 
sich  alle  Einstellungen  abschalten. 
Auch  Tabulatoren  lassen  sich  verti¬ 
kal  und  horizontal  einstellen,  inklusi¬ 
ve  des  linken  und  rechten  Randes. 
Allein  dafür  gibt  es  zehn  verschie¬ 
dene  Befehle,  die  keine  Wünsche 
offen  lassen.  Mit  diesen  Komman¬ 
dos  läßt  sich  jede  mögliche  Art  von 
Formularen  ausfüllen. 

Daß  dieser  Drucker  voll  grafikfä¬ 
hig  ist,  braucht  eigentlich  nicht  be¬ 
sonders  erwähnt  zu  werden.  Das  ist 
bei  heutigen  Matrixdruckern  schon 
Standard.  Der  Ausdruck  von  Grafi¬ 
ken  läßt  sich  mit  einfachen  Befehlen 
steuern.  Sie  erlauben  den  Ausdruck 
mit  einfacher  Dichte,  doppelter 
Dichte,  doppelter  Dichte  mit  dop¬ 
pelter  Geschwindigkeit  und  super¬ 
hoher  Dichte  mit  doppelter  Ge¬ 
schwindigkeit, 


Prädikat:  sehr  gut 


Der  Delta  10  ist  ein  Drucker,  der 
das  Prädikat  »sehr  gut«  verdient,  be¬ 
zogen  auf  seine  Druckfähigkeiten. 
Auch  die  Druckgeschwindigkeit 
und  die  Möglichkeit  sowohl  geloch¬ 
tes  Endlospapier  als  auch  Endlospa¬ 
pier  auf  Rollen  und  Einzelblätter  zu 
verwenden  werden  positiv  gewer¬ 
tet.  Abstriche  müssen  bei  der  Hand¬ 
habung  und  bei  dem  Bedienungs¬ 
komfort  gemacht  werden.  Negativ 
fiel  dabei  der  umständliche  Papier¬ 
transport  bei  Verwendung  der 
Tractor-Einheit  (zurück  nicht  mög¬ 
lich)  auf.  (gk) 
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Die  Seikosha-Drucker  stehen  seit  den 
Zeiten  des  schon  fast  legendären  GP-80, 
der  als  VC-1515  Drucker  zum  VC  20 
bekannt  wurde,  im  dem  Ruf  von  »Billig¬ 
druckern«,  zwar  grafikfähig,  aber  anson¬ 
sten  mit  wenig  Vorzügen  ausgestattet. 


Der  GP-550A  wird  diesem  Ruf  je¬ 
doch  nur  zum  Teil  gerecht,  näm¬ 
lich  hinsichtlich  des  günstigen 
Preises.  Ansonsten  verfügt  er  über 
eine  Reihe  von  Eigenschaften,  die 
ihn  auf  eine  höhere  Stufe  als  seine 
bekannten  kleinen  Brüder  GP-80 
und  GP-100  stellen. 

Da  wäre  zunächst  einmal  die 
Schrift.  Der  GP-550A  kann  über  Steu¬ 
erzeichen  insgesamt  18  verschiede¬ 
ne  Schriftarten  anwählen,  unter  an¬ 
derem  auch  Elite,  Script  und  Kursiv. 
Die  Standardeinstellung  ist  Pica.  Au¬ 
ßerdem  ist  Breit-  und  Schmalschrift 
einstellbar.  Auch  Proportionalschrift 
ist  möglich,  was  bei  einem  Drucker 
dieser  Preisklasse  durchaus  nicht 
selbstverständlich  ist. 

Der  GP-550A  verfügt  über  8 
Drucknadeln,  die  Zeichen  norma¬ 
lerweise  in  einer  8  x  9-Matrix  zu  Pa¬ 
pier  bringen.  Daneben  ist  aber  auch 
ein  Schönschreibmodus  vorgese¬ 
hen,  in  dem  die  Punkte  innerhalb  ei¬ 
ner  16x9- oder  16  x  12-Matrix  gesetzt 
werden.  Der  Druckkopf  wird  dabei 
um  einen  halben  Punktabstand  ver¬ 
tikal  versetzt,  so  daß  insgesamt  16 
sich  überlappende  Punkte  ge¬ 
druckt  werden  können.  Durch  die¬ 
sen  »Correspondence«  genannten 
Schönschreibmodus  ergibt  sich  ein 
Schriftbild  ähnlich  einer  Schreibma¬ 
schine,  da  die  einzelnen  Druck¬ 
punkte  so  ineinander  übergehen, 
daß  sie  auf  den  ersten  Blick  nicht 
mehr  als  solche  zu  erkennen  sind. 
Dabei  ist  es  noch  möglich,  wieder¬ 
um  verschiedene  Schriftarten  zu 
verwenden.  Durch  den  Schön¬ 
schreibmodus  reduziert  sich  aller¬ 
dings  die  ohnehin  nicht  allzu  hohe 
Druckgeschwindigkeit  von  norma¬ 
lerweise  50  Zeichen  pro  Sekunde 
auf  die  Hälfte. 

Wie  alle  Seikosha-Drucker,  ver¬ 
fügt  auch  der  GP-550A  über  eine 
Einzelnadelansteuerung.  Der  Um¬ 
gang  damit  ist  recht  einfach.  Nach 
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Empfang  eines  bestimmten  Steuer¬ 
zeichens  interpretiert  der  Drucker 
die  weiteren  ankommenden  Zei¬ 
chen  als  Grafik-Daten  zur  Nadel¬ 
steuerung.  Jedem  Bit  eines  Zeichens 
ist  dabei  eine  Drucknadel  zugeord¬ 
net.  Ist  das  betreffende  Bit  in  dem 
Zeichen  gesetzt,  dann  wird  auch  die 
zugehörige  Nadel  gesetzt  und  er¬ 
zeugt  einen  Punkt.  So  lassen  sich 
problemlos  Sonderzeichen  und 
Symbole  erzeugen,  aber  auch  hoch¬ 
auflösende  Grafik  über  eine  größe¬ 
re  Fläche  ist  möglich.  Dabei  können 
Grafik  und  Text  auch  ir.  x  gleichen 
Zeile  beliebig  gemischt  werden. 

Neben  dem  8-Bit-Grafikmodus 
gibt  es  noch  einen  erweiterten 
16-Bit-Grafikmodus,  in  dem  die  zu¬ 
sätzlichen  acht  Grafikpunkte  wie¬ 
der  »zwischen»  die  anderen  gelegt 
werden  (wie  im  Schönschreibmo¬ 
dus).  Damit  lassen  sich  wirklich 
durchgezogene  Linien  erzeugen, 
die  Grafik  wirkt  kompakter. 

Der  Seikosha  GP-550A  verfügt 
normalerweise  über  eine  Centro- 
nics-Schmttstelle,  ist  jedoch  auch 
(wie  unser  Testgerät)  mit  eingebau¬ 
tem  VC-Interface  lieferbar.  Damit 
gibt  es  dann  natürlich  keine  An¬ 
schlußprobleme  an  den  C  64  oder 
VC  20:  Einfach  das  Druckerkabel  in 
den  seriellen  Port  des  Computers 
einstecken,  einschalten,  und  schon 
ist  die  Anlage  druckfertig.  Damit  er¬ 
spart  man  sich  unter  Umständen  ei¬ 
ne  Menge  Ärger  mit  Interfaces  und 
Treibersoftware. 

Beim  ersten  Versuch,  ein  Pro¬ 
gramm  zu  LISTen,  wird  man  aller¬ 
dings  feststellen,  daß  der  GP-550A 
hinsichtlich  des  Zeichensatzes  lei¬ 
der  nicht  Commodore-kompatibel 
ist.  Es  werden  nämlich  keine  Steuer¬ 
oder  Grafikzeichen  gedruckt.  Dafür 
sind  aber  die  deutschen  Umlaute 
möglich.  Der  GP-550A  läßt  sich  näm¬ 
lich  per  DIP-Schalter  zwischen  acht 
verschiedenen  nationalen  Zeichen¬ 


sätzen  umschalten.  Für  Textverar¬ 
beitung  und  ähnliche  Anwendun¬ 
gen  wird  man  dabei  sinnvollerweise 
den  deutschen  Zeichensatz  wählen. 
Verzichtet  man  in  seinen  Program¬ 
men  auf  Grafiksymbole  und 
schreibt  Steuerzeichen  als 
CHR$-Anweisungen,  dann  erhält 
man  mit  dem  amerikanischen  Zei¬ 
chensatz  recht  brauchbare  Listings. 

Die  praktische  Arbeit  mit  diesem 
Drucker  gestaltet  sich  einigerma¬ 
ßen  angenehm,  sieht  man  einmal 
von  der  niedrigen  Druckgeschwin¬ 
digkeit  ab.  Die  Geräuschentwick¬ 
lung  ist  für  einen  Seikosha  erstaun¬ 
lich  zivil.  Vom  »Kreissägeneffekt« 
seiner  kleinen  Brüder  ist  nicht  viel 
zu  merken,  obschon  er  von  der  Laut¬ 
stärke  her  doch  etwas  über  dem  Ni¬ 
veau  zum  Beispiel  eines  Epson 
FX-80  liegt. 

Papiereinzug  und  Farbband- 
wechsel  sind  mit  wenigen  Handgrif¬ 
fen  und  völlig  problemlos  erledigt. 
An  Bedienelementen  ist  neben  den 
üblichen  Tasten  für  Zeilen-  und  Sei¬ 
tenvorschub  eine  zusätzliche  Taste 
mit  der  Bezeichnung  »Stop/Reset« 
vorhanden.  Mit  dieser  Taste  kann 
ein  Druckvorgang  unterbrochen 
und  der  Drucker  wieder  in  den  Ein¬ 
schaltzustand  versetzt  werden.  Da¬ 
durch  spart  man  sich  das  lästige 
Aus-  und  Einschalten  des  Druckers 
nach  einem  Fehler. 

Insgesamt  gesehen  hat  der  Sei¬ 
kosha  GP-550Ä  im  Test  einen  durch¬ 
aus  positiven  Eindruck  gemacht. 
Neben  seinem  günstigen  Preis  (1 098 
Mark)  besticht  er  vor  allem  durch 
seine  Grafikfähigkeiten  und  durch 
die  variablen  Schriftarten.  Nachtei¬ 
lig  sind  sicher  seine  vergleichswei¬ 
se  geringe  Druckgeschwindigkeit 
und  die  fehlende  Zeichensatz-Kom- 
patibüität  zum  C  64.  Den  letzten 
Nachteil  hat  er  aber  mit  den  meisten 
Druckern  seiner  Leistungsklasse 
gemein.  (ev) 
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Roland  DXY-101  - 
ein  Flachbettplotter 
im  DIN -A3 -Format 

Die  Entscheidung,  ob  Trommelplotter  oder  Flachbett¬ 
plotter  hängt  vom  Anwendungsfall  ab. 

Der  DXY-101  ist  ein  Flachbettplotter  und  besitzt  nicht 
nur  zwei  Schnittstellen,  sondern  auch  einen  a.jßen 
Befehlsvorrat. 


Erfaßt  ein  Computer  physikali¬ 
sche  Meßwerte,  so  fallen  jedes¬ 
mal  eine  Unmenge  an  Zahlen  an. 
Ein  gewöhnlicher  Drucker  erstellt 
Zahlentabellen,  die  zumeist  sehr  un¬ 
übersichtlich  sind.  Wesentlich  bes¬ 
ser  erkennt  man  Zusammenhänge, 
wenn  man  sie  optisch  aufbereitet 
und  in  Kurven  darstellt.  Nun  können 
auch  Matrixdrucker  Grafiken  erstel¬ 
len.  Sie  haben  dabei  jedoch  einige 
gravierende  Nachteile.  Sie  sind  sel¬ 
ten  in  der  Lage,  farbig  zu  drucken. 
Auch  läßt  sich  das  Papier  nicht  in 
beide  Richtungen  bewegen,  eine 
Grafik  kann  dann  nur  von  oben  nach 
unten  abgearbeitet  werden.  Ein  drit¬ 
ter  Punkt  betrifft  die  Darstellung. 
Matrixdrucker  setzen  lediglich 
Punkte  nebeneinander,  während 
Plotter  zusammenhängende  Linien 
zeichnen.  So  gesehen,  gibt  es  eine 
ganze  Reihe  von  sinnvollen  Anwen¬ 
dungsgebieten  für  Plotter. 

Der  Roland  DXY-101  ist  der  klein¬ 
ste  Vertreter  dieser  Reihe  im 
Roland-Programm.  Äußer  dem 
Preis  (zirka  2  000  Mark)  sind  auch  ei¬ 
nige  Fähigkeiten  interessant.  Als  er¬ 
stes  fallen  die  beiden  Schnittstellen 
an  der  Rückseite  des  flachen  Plot¬ 
ters  auf,  eine  Centronics-  und  eine 


RS232-Schnittstelle.  Somit  können 
Sie  als  64’er  Leser  auch  die  im  Heft  7 
abgedruckte  Treibersoftware  her¬ 
vorragend  e  insetzen. 

Der  DXY-101  wird  mit  einem  Hand¬ 
buch  geliefert,  das  zwar  alle  mögli¬ 
chen  Befehle  beschreibt  und  auch 
zu  jedem  Befehl  ein  Beispiel  enthält, 
jedoch  in  Englisch.  Die  abgedruck¬ 
ten  Listings  der  kleinen  Demonstra¬ 
tionsprogramme  sind  nicht  für  den  C 
64  geschrieben,  lassen  sich  jedoch 
leicht  anpassen.  Die  ebenfalls  mit¬ 
gelieferte  Diskette  enthält  ein  De- 
monstrationsprogramm,  mit  dem 
man  sich  jeden  Befehl  des  Plotters 
einzeln  vorführen  lassen  kann. 

Ein  großer  Vorteil  des  Plotters  ist 
sein  Format.  Mit  DIN  A3  läßt  sich 
schon  mehr  anfangen  als  mit  dem  oft 
nicht  ausreichenden  Format  A4.  Das 
Papier,  das  möglichst  glatt  sein  soll¬ 
te,  wird  an  beiden  Seiten  von  zwei 
flexiblen  Magnetstreifen  gehalten. 
Es  gibt  keine  Probleme  beim  Einle¬ 
gen  und  Wechseln.  Das  gilt  ebenso 
für  die  Zeichenstifte,  die  in  verschie¬ 
denen  Farben  erhältlich  sind.  Die 
gelieferten  Filzstifte  empfanden  wir 
jedoch  als  etwas  zu  dick.  Außerdem 
verursachten  sie  ein  gut  wahrnehm¬ 
bares  Schleifgeräusch  beim  Plotten. 


Aber  es  gibt  andere,  auch  feinere 
Stifte,  die  sich  mit  den  mitgelieferten 
Spezialhalterungen  einfach  instal¬ 
lieren  lassen. 

Der  Befehlsvorrat  des  DXY-101  ist, 
gemessen  an  der  Preislage,  ausrei¬ 
chend  groß.  Neben  den  üblichen 
Befehlen  zum  absoluten  und  relati¬ 
ven  Zeichnen  und  Bewegen  ohne 
Zeichnen  sind  auch  unterbrochene 
Linien  möglich;  der  Abstand  zwi¬ 
schen  den  Strichen  ist  frei  wählbar. 
Auch  x-  und  y-Achsen  (mit  und  ohne 
Teilung)  lassen  sich  mit  einem  Be¬ 
fehl  erzeugen.  Selbstverständlich 
können  auch  Buchstaben  und  Zah¬ 
len  geplottet  werden.  Alle  Zeichen 
können  16  verschiedene  Größen  an¬ 
nehmen,  wobei  nicht  nur  der  Ab¬ 
stand  zwischen  ihnen,  sondern  auch 
die  Schreibrichtung  variabel  ist.  Zu¬ 
sätzlich  gibt  es  noch  einige  Sonder¬ 
zeichen,  die  zur  zusätzlichen  Be¬ 
grenzung  von  Zeichnungen  und  Kur¬ 
ven  eingesetzt  werden  können,  Eine 
ganze  Reihe  von  Befehlen  befassen 
sich  mit  dem  Zeichnen  von  Kreisen 
und  Kreisausschnitten.  Allerdings 
gibt  es  kein  Kommando  um  Ellipsen 
zu  zeichnen.  Ganz  auf  selbst  ge¬ 
strickte  Routinen  kann  man  also 
nicht  verzichten,  will  man  den  Plot¬ 
ter  voll  ausnutzen.  Jedoch  kann  man 
sich  eine  kniffelige  Aufgabe  sparen: 
die  Schraffur  von  Rechtecken.  Auch 
sie  kann  mit  nur  einem  Befehl  ausge¬ 
führt  werden. 


Technische  Daten 


Der  DXY-101  weist  einen  effekti¬ 
ven  Plottbereich  von  37  mal  26  cm 
auf,  wobei  der  Stift  sich  mit  einer  Ge¬ 
schwindigkeit  von  bis  zu  180  mm/sec 
bewegen  kann.  Seine  Schrittweite 
beträgt  0,1  mm  pro  Schritt  bei  einer 
Wiederholgenauigkeit  von  0,3  mm 
oder  weniger.  Die  Positionierungs¬ 
genauigkeit  liegt  bei  1%. 

Aufgrund  seiner  Größe  ist  der 
DXY-101  in  der  Lage,  auch  kom¬ 
plexere  Zeichnungen  aufs  Papier  zu 
bringen.  Mit  entsprechend  feinen 
Stiften  könnten  allerdings  feinere  Li¬ 
nien  gezogen  werden,  Die  Filzstifte 
sind  nicht  so  optimal.  Die  mechani¬ 
sche  Stabilität  der  Führung  ist  für 
diese  Preisklasse  (um  2000  Mark) 
und  Konstruktionsart  durchaus  aus¬ 
reichend,  auch  wenn  ab  und  zu 
leichte  Resonanzen  auftauchen  kön¬ 
nen,  die  sich  auf  der  Zeichnung 
durch  leichtes  Zittern  bemerkbar 
machen.  Sein  Befehlsvorrat  läßt  nur 
wenig  Wünsche  offen  und  seine 
Schnittstellen  lassen  einen  An¬ 
schluß  an  fast  jeden  Computer  zu. 

(cfk) 
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SCHREIBMASCHINE  - 
ANSCHLUSSEERTIG- 
EÜR  DEN  C  64 

Die  Industrie  merkt  schon,  wo  der  Hase 
hinläuft.  Der  C  64  mausert  sich  langsam 
zum  Bürocomputer.  Und  für  Büro¬ 
computer,  speziell  für  den  Schriftverkehr 
im  Büro,  brauchen  viele  einen  Drucker 
mit  der  Qualität  einer  Schreibmaschine. 


ypenradschreibmaschinen 
sind  in  der  Schriftqualität  mit 
konventionellen  Schreibmaschi¬ 
nen  vergleichbar,  weil  auch  sie  für 
jedes  Zeichen  eine  Type  zur  Verfü¬ 
gunghalten.  Diese  Typen  sind  stern¬ 
förmig  auf  dem  Typenrad  angeord¬ 
net,  das  sich  leicht  auswechseln  läßt. 
Je  nach  Modell  gibt  es  eine  ganze 
Reihe  von  Typenrädern,  für  jede  nur 
denkbare  Schriftart  ein  anderes. 
Auch  Räder  mit  Sonderzeichen  (ma¬ 
thematische  und  andere  Sonderzei¬ 
chen,  verschiedene  Sprachen,  etc.) 
gibt  es.  Typenraddrucker  eignen 
sich  auf  Grund  ihres  guten  Schriftbil¬ 
des  für  Anwender,  die  optisch  ein¬ 
wandfreie  Schriftstücke  verlangen. 

Doch  wir  wollen  in  dieser  Ausga¬ 
be  nicht  die  Schreibmaschine  als 
solche  vorstellen,  sondern  den  An¬ 
schluß  der  Schreibmaschine  an  den 
Computer,  in  diesem  Fall  der  an  den 
C  64. 

Die  Olympia  Werke  bieten  die 
Compact  2  zwar  als  anschlußfertig 
für  einen  Computer  an,  jedoch  nicht 
für  den  C  64  mit  seiner  seriellen 
Schnittstelle.  Den  Einbau  einer  se¬ 
riellen  Schnittstelle  muß  dann  auch 
der  Fachhandel  vornehmen,  ln  un¬ 
serem  Fall  macht  das  für  Olympia 
die  Firma  lti-Datentechnik  in  Leon¬ 
berg.  Sie  baut  eine  Schnittstelle  in 
das  Gehäuse  ein,  so  daß  man  ledig¬ 
lich  das  normale  serielle  Kabel,  das 
auch  zum  Anschluß  der  Floppy  VC 
1541  dient,  einstecken  muß  und 
schon  ist  die  Verbindung  herge¬ 
stellt.  Die  Spannungsversorgung  ge¬ 
schieht  dabei  über  die  Schreibma¬ 
schine.  Tntern  hat  die  Compact  2  ei¬ 
ne  parallele  Centronics-Schnittstel- 
le,  so  daß  auch  bei  einem  eventuel¬ 
len  Systemwechsel  eine  andere 
Schnittstelle  leicht  eingebaut  wer¬ 
den  kann. 

Das  Interface  ist,  natürlich,  Com- 
modore-kompatibel.  Das  heißt,  daß 


der  Drucker  über  die  Geräteadres¬ 
se  4  angesprochen  werden  kann. 
Der  C  64  sendet  normalerweise 
kein  Auto-Line-Feed  Signal  (das 
macht  er  nur,  wenn  man  eine  Pri¬ 
märadresse  größer  als  128  nimmt, 
also  zum  Beispiel  OPEN  132,4).  Um 
trotzdem  mit  »normalen»  Primär¬ 
adressen  arbeiten  zu  können,  muß 
nach  dem  Einschalten  der  Olympia 
die  ON-LINE-Taste  und  die  Halbzei¬ 
lentaste  gedrückt  werden.  Damit 
ward  automatisch  bei  4  y  am  Wagen¬ 
rücklauf  ein  Zeilenvorscnub  durch¬ 
geführt,  solange  der  Drucker  einge¬ 
schaltet  ist. 

Beim  Einschalten  des  Gerätes 
kommt  man  in  den  Groß~/Klem- 
schrift-Modus,  genauer  gesagt  den 
»Cursor-Down-Modus«.  Durch  Ver¬ 
wendung  der  Sekundäradresse  7 
wird  in  den  »Cursor-Up-Modus«  ge¬ 
schaltet,  das  heißt  Großbuchstaben 
werden  als  Kleinbuchstaben  ge¬ 
druckt,  und  umgekehrt.  Diese  zwei 
Betriebsarten  können  ausgetauscht 
werden.  Auch  die  Geräteadresse  ist 
durch  Trennen  einer  Brücke  auf  der 
Schnittstellenplatme  auf  5  einstell¬ 
bar. 

Die  Frage  vor  allem  für  uns 
Commodore-Besitzer  ist  natürlich, 
ob  man  sich  auch  Listings  aus- 
drucken  lassen  kann.  Vielleicht  will 
sich  dieser  oder  jener  in  seiner  Frei¬ 
zeit  Programme  schreiben  und 
möchte  sich  zum  Ausdrucken  nicht 
extra  einen  Matrixdrucker  kaufen. 
Aber  keine  Sorge,  das  funktioniert 
ohne  große  Probleme.  Man  darf  da¬ 
bei  aber  nicht  vergessen,  daß  ein 
Typenraddrucker  nicht  grafikfähig 
ist.  Also  Steuerzeichen  können  nicht 
dargestellt  werden,  wie  man  es  ge¬ 
wohnt  ist.  Vergessen  wurden  sie  je¬ 
doch  auch  nicht.  Dieses  Problem 
wurde  so  geregelt,  daß  vor  jedem 
Steuerzeichen  im  Listing  ein  »!«  vor- 
angesteilt  wird,  gefolgt  von  einem 


Buchstaben,  der  so  auch  im  Listing 
am  Bildschirm  zu  sehen  ist,  wenn 
man  m  den  Groß-/Klemschnftmo- 
dus  schaltet.  Das  ist  akzeptabel  und 
eine  gute  Idee. 

Viele  Funktionen  der  Schreibma¬ 
schine  können  durch  Einsatz  von 
Steuersignalen  auch  vom  Computer 
aus  durchgeführt  werden.  Dazu  ge¬ 
hören  unter  anderem  der  Hupton, 
die  Zeilenschaltung,  der  Formular¬ 
vorschub,  der  Wagenrücklauf,  Ein- 
und  Ausschalten  der  Sonderzei¬ 
chenebene,  mit  der  emige  weitere 
Zeichen  gedruckt  werden  können. 
Mit  Sondersteuerzeichen  (durch 
Senden  verschiedener  Escape-Si- 
gnale)  läßt  sich  die  Schreibdichte 
(10,12,15  Zeichen/Zoll)  umschalten, 
aber  auch  die  Zellenschaltung  (l-,2- 
iVrzeilig)  und  die  Halbzeile  positiv 
und  negativ  (zum  Hoch/Tiefstellen 
von  Zeichen  um  eine  halbe  Zeile) 
emsteilen. 

Werden  innerhalb  von  Strings 
Commodore-Steuerzeichen  ver¬ 
wendet,  so  führen  auch  sie  eine 
Funktion  aus:  CLR  =  Formfeed,  HO¬ 
ME  =  Löschen  des  Schnittstellen¬ 
speichers  (Puffer),  CURSOR  links  = 
Leerschritt,  CURSOR  rechts  = 
Rückschritt,  RVS  ON/OFF  =  Son¬ 
derzeichenebene  ein-/ausschalten. 

Die  Olympia  Compact  2  ist  eine 
professionelle  Schreibmaschine, 
die  man  nicht  nur  an  den  C  64  an¬ 
schließen,  sondern  auch  als  reine 
elektronische  Schreibmaschine  ein- 
setzen  kann.  In  Verbindung  mit  dem 
C  64  und  einer  Floppy  erhält  man 
ein  System,  das  den  Weg  zur  wirk¬ 
lich  professionellen  Büroarbeit  eb¬ 
net.  Die  leichte  Handhabung  und 
Bedienbarkeit  der  Compact  2  und 
der  Preis  von  zirka  1500  Mark  lassen 
dann  auch  nur  wenig  Wünsche  of¬ 
fen.  (gk) 

Info  iti-Daientechnik,  Teiemannstraße  18,  7250  Leonberg, 
Ttel.:  071  52-6303 
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WlanktUUenaicht : 


&nucken  fiün  C  64 /VC  20 

Das  Angebot  an  Druckern  und  Plottern  für 
Homecomputer  wird  beinahe  von  Woche 
zu  Woche  umfangreicher.  Diese  Markt¬ 
übersicht  soll  unseren  Lesern  helfen, 
sich  einen  Weg  durch  den 
»Dmckerdschungel«  zu  bahnen. 

S4SR 


Zwei  Kategorien  von  Druckern 
und  Plottern  fehlen  in  dieser 
Übersicht.  Das  sind  zum  einen 
Geräte  aus  Preisklassen,  die  für  den 
C  64-Anwender  (und  erst  recht  für 
den  VC  20-Benutzer)  nicht  mehr  in¬ 
teressant  sind.  Sie  werden  also  nach 
Superdruckern  für  5000  Mark  eben¬ 
so  vergeblich  suchen  wie  nach  DIN- 
A3-Plottern  im  fünfstelligen  Preisbe¬ 
reich.  Außerdem  haben  wir  gene¬ 
rell  Drucker  nicht  berücksichtigt, 
die  nur  mit  unvertretbar  großem 
Aufwand  an  den  C  64/VC  20  ange¬ 
schlossen  werden  können. 

Sie  können  also  davon  ausgehen, 
daß  alle  in  dieser  Marktübersicht 
verte tenen  Drucker  und  Plotter  sich 
ohne  größere  Probleme  an  den  C 
64/VC  20  anschließen  lassen.  Eine 
Reihe  von  Geräten  ist  sogar  direkt 
über  den  seriellen  Bus  anschließ¬ 
bar.  Bei  diesen  Geräten  ist  in  der  Ru¬ 
brik  »Interface«  dann  »C  64/VC  20« 
vermerkt. 

Die  Liste  der  direkt  zum  C  64/VC 
20  kompatiblen  Drucker  ist  wahr¬ 
scheinlich  nicht  vollständig,  da  stän¬ 
dig  neue  Drucker  mit  bereits  einge¬ 
bautem  VC-Interface  auf  den  Markt 
kommen.  An  dieser  Stelle  sind  da¬ 
her  auch  die  Anbieter  entspre¬ 
chend  umgerüsteter  Drucker  aufge¬ 


fordert,  uns  entsprechende  Infor¬ 
mationen  zukommen  zu  lassen.  Die¬ 
se  Marktübersicht  soll  in  der 
nächsten  Ausgabe  noch  um  weitere, 
hier  nicht  berücksichtigte  Geräte  er¬ 
gänzt  werden. 

Geräte  mit  Centronics-Schnittstel- 
le  setzen  ein  spezielles  Interface 
und  die  entsprechende  Treibersoft¬ 
ware  voraus,  um  sie  an  den  C  64/VC 
20  anschließen  zu  können. 

Entgegen  einer  unter  Anfängern 
weit  verbreiteten  Meinung  ist  der 
serielle  Port  bei  den  Commodore- 
Computern  nicht  mit  einer  RS232C- 
Schnittstelle  identisch.  Allerdings 
sind  im  Betriebssystem  schon  die 
Routinen  zur  Verwaltung  einer 
RS232C-Schnittstelle  vorhanden,  so 
daß  ein  solcher  Anschluß  (über  den 
User-Port)  nicht  allzu  schwer  zu  rea¬ 
lisieren  ist. 

Ein  wichtiger  Punkt  bei  der  Aus¬ 
wahl  des  Druckers  ist  der  Zeichen¬ 
satz.  Nur  Drucker,  bei  denen  in  der 
Rubrik  »Zeichensatz«  der  Vermerk 
»Commodore«  vorkommt,  können 
tatsächlich  ohne  Schwierigkeiten 
den  gesamten  Commodore-Zei- 
chensatz  drucken.  Geräte  mit  dem 
Vermerk  »ASCII«  können  ebenso 
wie  Typenraddrucker  nur  die  Stan¬ 
dard  ASCII-Zeichen  drucken,  also 


keine  Grafiksymbole  oder  Steuer¬ 
zeichen.  Ist  der  Drucker  grafikfähig 
oder  können  Zeichen  selbst  defi¬ 
niertwerden,  dann  lassen  sich  aller¬ 
dings  auch  diese  speziellen  Zeichen 
per  Software  simulieren. 

Zum  Schluß  sei  noch  gesagt,  daß 
alle  Preisangaben  nur  ungefähre 
Werte  sind.  Wer  sich  bei  verschie¬ 
denen  Anbietern  informiert,  kann 
unter  Umständen  günstiger  einkau¬ 
fen.  (ev) 

Anbieter-Liste  Drucker  &  Plottpr 

Die  hier  aufgeführten  Adressen  sind  vielfach  keine  direk¬ 
ten  Bezugsquellen.  Sie  erhalten  aber  zumindest  Datenblatt 
und  Händlernachweis  für  den  von  Ihnen  ins  Auge  gefaßten 
Drucker  oder  Plotter. 


Adcomp  Datensysteme,  Olgasir.  IS,  8000  München  19, 
Brother  International  GmbH,  Im  Rosengarten  14;  6368 
Bad  Vilbel;  Canon  Deutschland  GmbH.  Postfach  1209. 
8033  München-Martirisried;  Casio  Computer,  Kieler 
Str.  212,  2000  Hamburg  54;  Citizen  Vertrieb  Deutsch¬ 
land,  MVB,  Brüder-Grimm-Str.  5,  6408  Ebersburg; 
C.Itoh  Deutschland  GmbH,  Königsallee  21,  4000  Düs¬ 
seldorf  1;  Commodore  Deutschland,  Lyoner  Str.  38, 
6000  Frankfurt  71;  Epson  Deutschland  GmbH,  Am  See¬ 
stern  24, 4000  Düsseldorf  11;  Mannesmann  Tally  GmbH, 
Postfach  2969,  790C  Ulm;  Micro  Enterprises.  Prinzre- 
gentensir.  78,  8000  München  80;  Mirwald  Elektronik, 
Fasaneostr.  8,  8025  Unterhaching;  NEC  Europa,  Wie* 
senstr.  148,  4040  Neuss;  Neumüller  GmbH,  Eschenstr. 
2,  8028  Taufkirchen;  OKI  Electric,  Emanuel-Leutze-Str. 
8,  4000  Düsseldorf  11;  Olympia  International,  Postfach 
960,  2940  Wilhelmshafen |  Quen-Data  GmbH/WELCO, 
Paul-Ehrlich-Str.  8, 6074  Rödermark;  Robotron-Vertrieb, 
Unitronic  GmbH,  Münsterstr.  338;  4000  Düsseldorf  30; 
Seikosha-Vertrieb,  Microscan  GmbH,  Postfach  601705; 
2000  Hamburg  60;  Star  Europe  GmbH,  Frankfurter  Al¬ 
lee  1-3, 6236  Eschborn;  Synelec  Datensysteme  GmbH, 
Lindwurmstr.  117,  8000  München  2;  Watanabe  GmbH, 
Arzberger  Str.  10,  8036  Hersching. 
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Marktübersicht:  Drucker 


Modell 

Typ 

Zeichen 

pro 

Sekunde 

Zeichen 

pro 

Zeile 

Matrix 

Farben 

Papierart 

Zeichensatz 

Adcomp  X  100 

Trommelplotter 

k.A. 

k.A. 

— 

4 

Endlos  DIN  A4 

k.A. 

BMC  BX-80 

Matrixdrucker 

80 

40/80/71/142 

9x8 

— 

Endlos,  Einzelblatt 

8  regionale  Zeichen¬ 
sätze 

Brother  EP-22 

Thermodrucker 

17 

75 

7x5 

Thermopapier  oder 
Normalpapier 

ASCII  plus  Sonderzei¬ 
chen 

Brother  HR-15 

Typenrad 

13 

110-165 

— 

— 

Endlos,  Einzelblatt 

je  nach  Typenrad 

Canon  A-I210 

Tintenstrahl 

40 

80 

— 

- 

Einzelblatt,  Rolle 

k.A. 

Casio  FP-101PL 

Trommelplotter 

11 

8-80 

- 

4 

Rolle 

ASCII 

Citizen  560  LG 

Matrixdrucker 

65 

40 

5x7 

2 

Rolle  (Normalpapier 

70  mm) 

ASCII 

Commodore  1526 

Matrixdrucker 

80 

80 

8x8 

' 

Endlos 

Commodore 

Commodore  MPS-801 

Matrixdrucker 

50 

80 

7x6 

— 

Endlos 

Commodore 

Commodore  VC  1520 

Printer  Plotter 

12 

10/20/40/80 

— 

4 

Rolle  (114  mm) 

Commodore 

Commodore  MPS-802 

Matrixdrucker 

50 

80 

8x6 

— 

Endlos 

Commodore 

Epson  FX-80 

Matrixdrucker 

160 

48-137 

9x11 

" 

Endlos,  Einzelblatt, 

Rolle 

9  nationale  Zeichensätze 

Epson  EX-80 

Matrixdrucker 

100 

40-137 

9x9 

— 

Endlos 

11  nationale  Zeichen¬ 
sätze 

Epson  RX-80  (VC) 

Matrixdrucker 

100 

40-137 

9x9 

— 

Endlos 

Commodore  und  10  x 
national 

Itoh  8510  A 

Matrixdrucker 

120 

80—136 

k.A. 

— 

Endlos,  Einzelblatt, 

Rolle 

ASCII 

Itoh  APY  1000 

Flachbettplotter 

k.A. 

k.A. 

— 

8 

Einzelblatt  DIN  A4 

k.A. 

Mannesmann  MT  80 

Matrixdrucker 

80 

40/66/80/132 

8x7 

" 

Endlos,  Einzelblatt 

8  nationale  Zeichensatze 

Mannesmann  PIXY  3 

Flachbettplotter 

k.A. 

k.A. 

3 

Einzelblatt  DIN  A4 

8  nationale  Zeichensätze 

Micro-Enterpr.  ME  80 

Matrixdrucker 

80 

40/80/142 

9x8 

— 

Endlos,  Einzelblatt 

ASCII 

Mirwald  MP  1003 

Flachbettplotter 

k.A. 

k.A. 

- 

4 

Endlos,  Einzelblatt 

DIN  A3 

ASCII 

NEC  PC  8023 

Matrixdrucker 

100 

40-136 

9x7 

— 

Endlos,  Einzelblatt, 

Rolle 

k.A. 

Neumiiller  NPR-5500 

Trommelplotter 

k.A. 

k.A. 

— 

4 

Endlos,  Einzelblätter 

DIN  A4 

ASCII 

Oki  Microline  80 

Matrixdrucker 

80 

80/132 

k.A. 

— 

Endlos,  Einzelblatt. 

Rolle 

ASCII 

Olympia  Compact  2 

Typenrad 

14 

115-172 

- 

— 

Endlos,  Einzelblatt 

je  nach  Typenrad 

Quen-Data  DMP  1180 

Matrixdrucker 

80 

80-142 

9x7 

— 

Endlos,  Einzelblatt, 

Rolle 

ASCII 

Quen-Data  DMP  81/80 

Matrixdrucker 

80 

80-132 

9x7 

- 

Endlos 

ASCII 

Robotron  6311 

Matrixdrucker 

100 

80-120 

9x7 

- 

Endlos,  Einzelbatt,  Rolle 

ASCII 

Robotron  5312 

Matrixdrucker 

100 

132—190 

9x7 

— 

Endlos,  Einzelblatt, 

Rolle 

ASCII 

Robotron  TD  40 

Thermodrucker 

40 

40 

— 

— 

Rolle  (Thermopapier) 

ASCII 

Seikosha  GP-100VC 

Matrixdrucker 

30 

80 

7x5 

— 

Endlos 

Commodore 

Seikosha  GP-50A 

Matrixdrucker 

40 

46 

7x5 

— 

Rolle  (95  mm) 

ASCII 

Seikosha  GP-550A 

Matrixdrucker 

86 

80/96/136 

8x6 

— 

Endlos 

ASCII 

Seikosha  GP-700A 

Farbmatrixdrucker 

50 

80—160 

8x7 

7 

Endlos 

ASCII 

Star  Powertype 

Typenrad 

18 

110/132/165 

- 

- 

Endlos,  Einzelblatt 

je  nach  Typenrad 

Star  gemini-lOX 

Matrixdrucker 

120 

80/96/136 

9x9 

Endlos,  Einzelblatt, 

Rolle 

ASCII  und  Sonderzei¬ 
chen 

Star  stx  80 

Thermodrucker 

60 

80 

5x9 

— 

Rolle  (Thermopapier) 

8  nationale  Zeichensätze 

Synelec  CP-80 

Matrixdrucker 

80 

80 

8x7 

— 

Endlos,  Einzelblatt 

8  nationale  Zeichensätze 

Watanabe  Miplot  jun. 

Flachbettplotter 

k.A. 

k.A. 

4 

DIN  A4 

8  nationale  Zeichensätze 
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Pufferspei-  Grafik  Interface  Bemerkungen  Preis  ca.  Bezugsquelle 

eher 


20  KByte 

Kreise,  Schriften,  Achsen 
etc, 

Centronics,  RS232C,  IEEE 
488 

2  Prozessoren,  automatischer 
Stiftwechsel 

2900,- 

Fachhandel 

— 

Bit-Image  Modus,  640 
Punkte/Zeile 

Centronics,  RS232C  optio¬ 
nal 

Bidrektionaldruck,  Unterstrei¬ 
chen,  4  Schriftarten 

1 136,- 

Mirwald  Electronic 

2  KByte 

— 

RS232C,  optional  C  64/VC 
20 

Tastatur,  LDC-Display, 
Rechenfunktion,  als  Schreib¬ 
maschine  nutzbar 

549,- 

Fachhandel,  Kaufhäuser 

5  KByte 

- 

Centronics,  RS232C 

- 

1 599,- 

Fachhandel,  Kaufhäuser 

- 

k.A. 

Centronics 

- 

1 760,- 

Schwind  Datentechnik 

— 

Farbgrafik 

k.A. 

10  Zeichengrößen 

699- 

Fachhandel,  Kaufhäuser 

— 

Hochauflösende  Grafik 

C  64/VC  20,  Centronics, 
RS232C,  TTL,  20  mA 

Schwarz-Rot-Druck,  Vollzei¬ 
chensatz 

475,- 

Fachhandel,  Kaufhäuser 

Blockgrafik 

C  64 /VC  20 

Ein  programmierbares  Son¬ 
derzeichen,  Bidirektional¬ 
druck 

995- 

Fachhandel,  Kaufhäuser 

80  Byte 

Einzelnadelsteuerung 
(480  Punkte/Zeile) 

C  64 /VC  20 

— 

795,- 

Fachhandel,  Kaufhäuser 

80  Byte 

480  Plot-Positionen  pro 
Zeile 

C  64 /VC  20 

— 

560- 

Fachhandel,  Kaufhäuser 

2  KByte 

Blockgrafik 

C  64/VC  20 

Ein  frei  definierbares  Zeichen 
möglich 

860- 

Fachhandel 

2  KByte 

Bit  Image  Modus 
(480-1920  Punkte/Zeile) 

Centronics,  RS232C,  IEEE 
488 

diverse  Schriftarten,  Bidirek¬ 
tionaldruck,  selbstdefinierba¬ 
rer  Zeichensatz 

1 495— 

Fachhandel,  Kaufhäuser 

— 

Einzelnadelsteuerung 
(480-1920  Punkte/Zeile) 

Centronics,  optional  C  64/ 
VC  20 

128  verschiedene  Schriftarten, 
Bidirektionaldruck 

1 198,- 

Fachhandel,  Kaufhäuser 

2  KByte 

Einzelnadelsteuerung 
(480—1920  Punkte/Zeile) 

C  64/VC  20 

Wie  Epson  RX-80,  aber  an¬ 
schlußfertig  an  C  64/VC  20 

1398,- 

Mirald  Electronic 

1,5  KByte 

k.A. 

Centronics,  RS232C 

— 

1760,- 

AC  Copy  DTV  GmbH 

132  Byte 

— 

Centronics,  RS232C 

— 

1300,- 

Fachhandel 

2  KByte 

Einzelnadelsteuerung  640 
oder  1280  Punkte/Zeile 

Centronics,  optional 
RS232C 

Bidirektionaldruck,  variable 
Schriftbilder,  Steuercodes 
Epson-kompatibel 

1 140,— 

Fachhandel,  Kaufhäuser 

k.A. 

Kreise,  Kurven,  Achsen, 
Linien 

Centronics,  RS232C 

griechisch'"'  ”nd  mathemati¬ 
scher  Zeicht...  atz 

2  100,- 

Fachhandel 

k.Ä. 

Einzelnadelsteuerung 

Centronics,  optional 
RS232C 

Bidirektionaldruck,  Super¬ 
script 

1 189,— 

Fachhandel 

1,3  KByte 

Kreise,  Achsen,  Zeichen 
und  Symbole 

Centronics,  optional 

C  64/VC  20 

— 

2  690,— 

Mirwald  Elektronik 

8  KByte 

k.A. 

Centronics 

— 

1 730,— 

Schwind  Datentechnik 

4  KByte 

Kreise,  Histogramme, 
Marken 

Centronics,  RS232C 

— 

1 990,— 

Neumüller  GmbH 

2  KByte 

Blockgrafik 

Centronics,  RS232C 

— 

1 150,- 

Fachhandel 

2  KByte 

- 

Centronics,  RS232C 

- 

1 446,— 

Bürofachhandel,  Kaufhäuser 

2  KByte 

k.A. 

Centronics,  RS232C 

— 

995,— 

Neumüller  GmbH 

k.A. 

k.Ä. 

Centronics,  RS232C 

- 

650,— 

Neumüller  GmbH 

k.A. 

k.A. 

Centronics,  RS232C 

- 

999,— 

Unitronic  GmbH 

— 

k.A. 

Centronics,  RS232C 

— 

1 199  — 

Unitronic  OmbH 

80  Byte 

k.A. 

TTL 

- 

467,- 

Unitronic  GmbH 

— 

Einzelnadelsteuerung 

C  64/VC  20 

Direktanschluß  an 

C  64/VC  20 

798- 

Fachhandel.  Kaufhäuser 

— 

Einzelnadelsteuerung 
(276  Punkte/Zeile) 

Centronics 

— 

379- 

Fachhandel,  Kaufhäuser 

Einzelnadelsteuerung 

Centronics 

Schnelldruck,  Korrespon¬ 
denzdruck 

1 098,— 

Fachhandel,  Kaufhäuser 

Einzelnadelsteuerung, 
Farbe  jedes  Punktes  wähl¬ 
bar 

Centronics,  optional 

C  64/VC  20 

1700,— 

Fachhandel,  Kaufhäuser 

165  Byte 

- 

C  64 /VC  20  (Option) 

— 

1400,— 

Fachhandel 

816  Byte 

Bit-Image  (480—1929 
Punkte/Zeile) 

Centronics,  optional  Com- 
modore,  RS232C,  IEEE  488 

Blockgrafik,  96  programmier¬ 
bare  Zeichen,  8  Schriftarten, 
Bidirektionaldruck,  optional  8 
KByte  Puffer 

1 195  — 

Fachhandel,  Kaufhäuser 

80  Byte 

Blockgrafik 

Centronics,  RS232C 

Bidirektionaldruck 

595,— 

Fachhandel 

k.A. 

Einzelnadelsteuerung 

Centronics,  optional 
RS232C 

variable  Schriftarten,  Bidirek¬ 
tionaldruck 

1 140,— 

Synelec  Datensysteme  GmbH 

1  KByte 

Kreise,  Kurven.  Achsen, 
ASCII-Zeichen 

Centronics,  RS232C 

— 

1850,— 

Watanabe  GmbH 
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So  sieht  der  Output  aus 
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Komprimierte  Breitschrift 
Komprimiert,  kursiv,  breit 
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Kursive  Schrift  kann  man  so  lassen 
Und  das  hier  ist  Elite. 

Proportionalschrift 
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Bild  2.  Epson  FX  80,  kein  Unterschied  zum  Delta  10. 
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A  Bild  3.  Der  Seikosha  GP  550  besitzt 
ein  gutes  Preis/Leistungs-Verhältnis. 


Bild  4.  Alle  Möglichkeiten 
des  lautlosen  Brother  HR  5C. 


Bild  5.  und  6.  Links  der  Adcomp  X100  und  rechts  der  Roland  DXY-10. 
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Im  Gegensatz  zu  manchen  Actionspielen,  die  schnell 
langweilig  werden,  sind  Abenteuerspiele  wie  »The  Blade  of  Blackpool« 
eine  lohnende  Anschaffung.  Sie  garantieren  lang  anhaltende 
Spielfreude,  da  die  Aufgabe  oft  sehr  schwierig  ist.  Für  Computerbe¬ 
sitzer  mit  weniger  Freizeit  habe  ich  diese  Lösung  entworfen. 
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(Bild  2).  Jedes  Feld  ist  mit  einer  Num¬ 
mer  und  einem  Buchstaben  verse¬ 
hen.  Sie  geben  einen  Anhalt,  unter 
welchem  Punkt  in  der  Hilfsliste 
nachgeschaut  werden  kann, 

Der  dritte  Teil  (Bild  3)  besteht  aus 
einer  »Schritt-für-Schritt-Lösung«, 
mit  der  das  Abenteuer  innerhalb 
von  zwei  Stunden  lösbar  ist,  Von  der 
Verwendung  dieses  Teiles  möchte 
ich  dem  ambitionierten  Abenteurer 
eigentlich  abraten,  denn  ist  das 
Abenteuer  erst  gelöst,  verliert  das 
Spiel  vollkommen  seinen  Reiz. 

Vorab  möchte  ich  allerdings  noch 
einige  allgemeine  Hinweise  zu  »The 
Blade  of  Blackpool«  geben:  Die  Auf¬ 
gabe  des  Abenteurers  besteht  dar¬ 
in,  das  lange  verschollene  Schwert 
Myraglym  zu  finden  und  in  eine 
Gaststätte  nahe  dem  Ausgangs¬ 
punkt  zu  bringen. 

Erst  dann  ist  das  Abenteuer  gelöst 
(500  von  500  möglichen  Punkten), 
Dazu  ist  äußerst  selten  reine  Gewalt 


Die  eigentliche  Spannung  eines 
Abenteuerspiels  liegt  natürlich 
darin,  die  Lösung  selbst  zu  erar¬ 
beiten.  Das  dauert  manchmal  viele 
Monate,  da  einige  der  geforderten 
Lösungsschritte  vollkommen  unlo¬ 
gisch  und  nur  durch  reine  Intuition 
(die  Verwendung  eines  Monitors 
lehne  ich  ab)  lösbar  sind,  So  wird 
beispielsweise  während  der  Suche 
nach  dem  Schwert  Myraglym  an  ei¬ 
ner  Sielle  verlangt,  Bier  in  einen 
Fluß  zu  kippen.  Wer  dann  keinen 
Maßkrug  mit  Bier  aus  einer  Gaststät¬ 
te  bei  sich  hat,  ist  aufgeschmissen 
und  muß  von  vorne  beginnen. 

Aus  diesem  Grund  habe  ich  die 
Anleitung  so  gestaltet,  daß  im  ersten 
Teil,  der  Hilfsliste,  (Bild  1)  nicht 
gleich  alles  verraten  wird.  Die  Hilfs¬ 
liste  gibt  lediglich  Aufschluß  dar¬ 
über,  wie  ein  spezielles  Hindernis 
überwunden  werden  kann.  Zum 
Auffinden  der  jeweiligen  Position 
dient  der  zweite  Teil,  die  Lagekarte 


TM  1.  Die  Hilfsliste 


SW1MM  E 

Wer  Honig  hat,  kann  "CATCH  BEE”  sagen  und  Bienen  für  die 
Pflanze  fangen 

"TAKE  BOTTLE".  Damit  verkleinert  sich  später  das  Boot 
"BUY  ALE”:  "TALK  TO  BARTENDER”:  TALK  TO  MEN” 

BUY  HONEY;ROPE;LAMP 

"POUR  POTION  OVER  BOAT”  Damit  schrumpft  das  Boot  und 
kann  mitgenommen  werden. 

"GIVE  BEES  TO  THE  PLANT” 

"DROP  HONEY”,  Sonst  verhungert  man  kurz  vor  Schluß 
"TIE  POPE'Y'CLIMB  UP” 

"SING  WITH  BIRDS” 

"LIGHT  LAMP”  Lampe  muß  ab  da  immer  getragen  werden, 
sonst  aeht  sie  aus. 

"STEP' ON  PAD" 

"TAKE  TUNING  FORK” 

"TIE  POPE’T’CLIMB  DOWN” 

"DROP  BOAT  INTO  WATER" 

"POUR  ALE  INTO  WATER” 

"PLACE  BOOK  ON  ALTAR”.  Man  erhält  dann  einen  Schlüssel. 
"HIT  BOULDER  WITH  FORK” 

Hier  muß  man  so  lange  herumlaufen,  bis  man  die  "SCROLL’ 
und  den  "LONG  BOW”  gefunden  hat  Heraus  geht  es  mit  4mal 
W  oder  4mal  E. 

"READ  PLAQUE” 

"ROW  DOWN” 

"SAY  MAHDEN”  (steht  in  der  Scroll)  und  bringt  einen  Pfeil: 
"SHOOT  DRAGON” 

"TAKE  SWORD".  Nicht  Myraglym  sagen!!! 

"Wer  das  Schwert  hat  sagt:  "PLACE  SWORD  ON  ALTAR”  und 
sagt  dann:  ”SÄY  MYRA.GLYM”.  Man  landet  dann  mit  dem 
Schwert  m  Bild  23 

Wer  Hunger  hat  ißt  jetzt,  aber  nur  auf  dem  2.  Rückweg,  unbe¬ 
dingt  den  Honig. 

Bild  1.  Mit  dieser  Hilfsliste  und  ein  bißchen  Erfahrung 
mit  »The  Blade  of  Blackpool«  sollte  man  der  Lösung  näherkommen. 
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notwendig  (was  mir  sehr  gut  gefällt). 
Wenn  Waffen  gebraucht  werden, 
dann  findet  man  sie,  beziehungswei¬ 
se  erhält  sie  durch  einen  magischen 
Spruch.  Das  Spiel  ist  eigentlich  nur 
mit  viel  unkonventionellem  und  ein¬ 
fallsreichem  Denken  zu  lösen.  Der 
»dann  hau  ich  mich  eben  durch«-Typ 
wird  vom  Programm  meist  mit  höhni¬ 
schen  Bemerkungen  wie  »we  are  a 
little  violent  today?  abgespeist.  Auch 
sonst  sind  die  Bemerkungen  oft  mit 
Spott  gewürzt,  zum  Beispiel:»you 
might  fall  and  hurt  yourself«  beim 


Versuch  einen  Baum  zu  erklimmen. 
Die  meist  gegebene  Antwort  ist 
aber  »that  had  no  effect«  und  das  hat 
mich  manchmal  fast  zum  Wahnsinn 
getrieben. 

Abschließend  seien  hier  noch  ein 
paar  Tips  vermerkt: 

1.  Es  wird  viel  gelaufen,  also  keinen 
Rückweg  scheuen,  beziehungswei¬ 
se  einen  Weg  zweimal  gehen,  um  al¬ 
le  Sachen  zu  transportieren. 

2.  Vorsichtig  mit  allen  Zauberwör¬ 
tern  umgehen.  Ab  einer  bestimmten 
Spielstufe  hat  das  Wort  »Regnilo« 


verheerende  Wirkungen,  denn  es 
werden  alle  Besitztümer  wieder  an 
ihren  ursprünglichen  Ort  gezau¬ 
bert. 

3.  Das  Spiel  hat  kein  Eigenleben  (im 
Gegensatz  zu  »The  Hobbit«).  Gegen¬ 
stände  können  beliebig  weggelegt 
und  später  wieder  geholt  werden. 
Es  gibt  keine  Kobolde,  die  Gegen¬ 
stände  stehlen. 

4.  Immer  gelassen  bleiben,  denn  es 
ist  nur  ein  Spiel,  wenn  auch  ein  sehr 
schönes. 

(Arnd  Wängler/aa) 


Teil  3. 

Schritt-für-Schritt- 
Anleitung 

1-2-9-10  “TALK  TO  MEN”  "TALK  TO 
BARTENDER'-ir'BUY  ROPE;LAMP; 
HONEY"  10"BUY  ALE'”'DROP 
BELT"  9-7-3  "S  WIMM  E -3-5-6 
"CATCH  BEE-5"TAKE  POTION" 
-4-3-2-l-15"GIVE  BEES  TO  PLANT 
"l-13”POUR  POTION  OVER 
BOAT""TAKE  BOAT"l-2"TAKE 
SHIELD" 

-l-15-16-17”DROP  HONEY-18-19-20- 
21-22"TIE  ROPE""CLIMB 

UP-23-24-25 

"LIGHT  LAMP -24-23"TAKE  AMU¬ 
LET -22-21-20-19-18-17-16-15-1-2-9-7-8- 
"GIVE 

AMULET  TO  VOICE"  "1^7-9-2-1-15- 
16-17-18-19-20-21-22-23”TAKE  RO- 
o  PE"24"SING  WITH  BIRDS'^26"STEP 
ON  PÄD "2 7-31- TIE  ROPE"  "CLIMB 
DOWN"31-32-33-34"DROP  BOAT" 
-31' 'TIE  ROPE"'CLIMB 

UP"27-28-30"TAKE 
FORK -28-2 7-31 ' 'TAKE  ROPE"  "TIE 
ROPE""CLIMB  DOWN"31-32-33-34 
"ENTER  BOAT""ROW 

N" 35-36’ ’POUR  ALE  INTO  WATER" 
37-38-3 9-41" PLACE  BOOK  ON  AL¬ 
TAR"  "I"40-38-37-43"HIT  BOULDER 

WITH  FORK-46-45-44-44-44-44- . 

"TAKE  BOW"  "TAKE 

SCROLL'  "READ  SCROLL-45-46- 
43-37"ENTER  BOAT-38-40-48"ROW 
DOWN"49-'SÄY  MAHDEN  ""TAKE 
BOW”"SHOOT  DRAGON -47"TAKE 
SWORD -49-48-40-38-37-43-46-45-51 
"PLACE  SWORD  ON  ALTAR"  "SAY 
MYRAGLYM"  man  ist  dann  wieder 
auf  Feld  23-22-21-20-19-18-17"EAT 
HONEY  "16-15-1-2-9-10 
ENDE 

Bild  2.  Oer  Lageplan  von  »The  Blade  of  Blackpool«.  Die  Buchstaben  in  den  Feldern  Bild  3.  Mit  dieser  Anleitung 

beziehen  sich  auf  die  Angaben  in  Bild  1,  die  haben  Sie  »The  Blade  of  Blackpool« 

Zahlen  auf  Bild  3.  in  zwei  Stunden  gelöst. 
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lesen 


etzte  Raum 


- 


■H*M 


leie 
uchen  — 
ins  gefunden 


ei  diesem  Spiel  aus  de 
Kingsoft  handelt  es  sl  .  % 

_  Geschicklichkeitsspie  Wer  etem  _ 

\  der  Titelheld  die  geheimnisvollen  _nile  anderen  A 
Rätsel  des  Hauses  — z‘sn‘  1  — 

ach  einem  grafi  ______ 

machten  Vorspann  (Bild),  in ‘dem  die 
Spielfigur  das  Haus  betritt,  kann  er 
sich  von  der  Empfangshalle  aus  ei- 


-v©r  Monst^fnrette 


iffttegeili! MOT* 

n,  Abgründe  und 


Falltüren  überspringen,  herabfal¬ 
lenden  Felsen  oder  Kanonenkugeln 
aus  weichen. 


nswert  ist,  daß  nicht  nur 
nsschnelligkeit  des  Spie- 
auch  Übersicht  und 
fordert  werden.  Obwohl 
die  Spieficlee  nicht  ganz  neu  ist 
Qumpman  und  Miner  2049er  lassen 
n),  kann  man  sagen,  daß  »Hou- 
Usher«  durch  gute  Grafik  und 

!&y_  _ 

sahTBl’eiBt,  Ha'cHe* verschie d^-hW 
Aufgaben  nicht  gerade  einfach  zu 
lösen  sind.  Das  Spiel  kostet  nur  39 
Mark  auf  Kassette  oder  Diskette. 

(Manfred  Kohlen/aa) 


Man  greife  eine  alte  Idee 
auf,  füge  noch  einige 
Schwierigkeitsgrade  hinzu 
-  fertig  ist  das  neue 
Spiel.  Es  läuft  auf  dem 
VC  20  mit  16  KByte. 


Bereits  nach  einigen  Sekunden 
ist  dem  versierten  Computer¬ 
spieler  klar,  daß  es  sich  um  das 
altbekannte  »Scramble«  handelt.  Al¬ 
lerdings  wurde  die  Version  Fire- 
Galaxy  auf  acht  Spielstufen  erwei¬ 
tert.  Bei  dem  Spiel  Scramble  (Fire- 
Galaxy)  dringt  man  möglichst  tief  in 
eine  Höhle  ein,  in  der  die  verschie¬ 
densten  Feinde  lauern.  Diesen  muß 
man  ausweichen  oder  sie  abschie¬ 
ßen.  Weiterhin  ist  zu  beachten,  daß 
man  möglichst  viele  Treibstofftanks 
abschießt,  um  nicht  infolge  Treib¬ 
stoffmangels  abzustürzen.  Dies  wird 
natürlich  immer  schwieriger,  je  wei¬ 
ter  man  in  die  Höhle  vordringt,  denn 


man  muß  sich  immer  mehr  darauf 
konzentrieren,  den  Angreifern  aus¬ 
zuweichen. 

Wer  ein  »Schlaftabletten-Reak- 
tionsvermögen«  besitzt,  sollte  sich 
entweder  dieses  Spiel  nicht  kaufen 
oder  die  F7-Taste  mit  einem  Tesa- 
streifen  festkleben.  Mit  diesem 
Trick  läßt  sich  das  Spiel  auf 
Zeitlupen-Tempo  reduzieren.  Wenn 
Sie  schon  beim  Festkleben  sind, 
dann  können  Sie  auch  den  Feuer¬ 
knopf  am  Joystick  mit  Tesafilm  fixie¬ 
ren,  denn  diesen  müssen  Sie  wäh¬ 
rend  der  gesamten  acht  Spielstufen 
permanent  drücken,  was  bereits 
nach  kurzer  Zeit  schmerzhaft  wird 


Auffallend  an  diesem  Spiel  ist 
nicht  die  Spielidee,  sondern  die 
wirklich  ausgezeichnete  Grafik  und 
der  gute  Sound.  Hier  werden  die 
grafischen  und  die  musikalischen 
Fähigkeiten  des  VC  20  voll  ausge¬ 
schöpft.  Daß  ein  Spiel,  das  den  VC 
20  -so  gut  nutzt  und  zudem  ziemlich 
schnell  ist,  in  Maschinensprache  ge¬ 
schrieben  wurde,  versteht  sich  fast 
von  selbst. 

Fire-Galaxy  von  Kmgsoft  ist  wirk¬ 
lich  ein  ausgezeichnetes  Spiel,  das 
sich  jeder  leisten  kann.  Denn  es  ko¬ 
stet  (man  glaubt  es  kaum!)  nur  39 
Mark. 

(C.  Q.  Spitzner  &  B.  Carti/ev) 
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Adreß-  und  Telefonregister,  5/84J 
Seite  64 

In  Zeile  1840  sollte  nicht! 
GOTO  610,  sondern  GOTC 
510  stehen.  (Gert  Marx]! 

Abgerechnet  wird  mit  dem  C  64j 
8/84,  Seite  68 

Mit  Interesse  habe  ich  dei 
o.g.  Artikel  in  Ihrer  Zeitschrift] 
gelesen.  Da  sich  der  Autoi 
mit  diesem  Programm  we 
gen  der  Thematik  zwangs-j 
läufig  an  Gewerbetreibende 
wendet,  fühle  ich  mich  ver-| 
anlaßt,  einige  Bemerkungei 
zu  machen. 

Im  Text  wird  unter  dei 
Überschrift  »Der  feine  Unter-) 
schied«  auf  die  umsatzsteu-j 
erliche  Behandlung  von  Port 
togebühren  hingewiesen. 

Die  Deutsche  Bundespost 
ist  mit  einem  Teil  ihrer  Aufga¬ 
ben  (Postbeförderung)  hoJ 
heitlich  tätig  und  daher  nicht 
Unternehmer  im  umsatzsteu-j 
erlichen  Sinne,  daher  sine 
diese  Umsätze  der  Post  nicht 
steuerbar.  Der  gewerbliche 
Unternehmer  ist  —  von  Spe¬ 
zialfällen  abgesehen  —  bei] 
Weiterbelastung  des  Portos 
auch  mit  diesem  Betrag  um-j 
satzsteuerpflichtig.  Im  Und 
satzsteuerrecht  wird  die  Por¬ 
tobelastung  als  Nebenlei-j 
stung  zur  Hauptleistung  (dei 
Warenlieferung)  gesehei 
und  teilt  deren  Schicksal, 
das  heißt  der  für  die  Liefe¬ 
rung  geltende  Steuersatz  ist 
in  der  Regel  auch  für  be¬ 
rechnete  Portokosten  zu  er¬ 
heben  und  an  das  Finanzamt 
abzuführen. 

Im  Interesse  Ihrer  gewerl 
liehen  Leser,  für  die  eine  An¬ 
wendung  in  Frage  kommt, 
halte  ich  zur  Vermeidung  von! 
leichtfertigen  Steuerverkür- 1 
zungen  eine  Richtigstellung! 
für  notwendig. 

Zeile  60400  lautet: 

...*10tur  +  .5))/10lur) 

(Rainer  Voß,  Steuerberater)! 


[Kurvendiskussion  in  hires,  7/84, 
ISeite  118 

Ich  möchte  hiermit  auf  ei-| 
Inen  von  mir  lang  gesuchter 
[Druckfehler  aufmerksar 
[machen.  Er  befindet  sich  auf 
[Seite  118,  Zeile  114. 

[Original: 

J 114  SYS49629.Y+ .5.X/8.  | 

|XAND255:SYS49744.2t  PEEI 
(16722) 

[Richtig: 

1 114  SYS49629.Y+  ,5,X/8, 
CAND255:SYS49744,2t  PEK1 
(16722)  (Thomas  Lade) 


|Alle  Tasten-,  Zeichen-  und  Steuerco-j 
les,  Teil  2,  5/84,  Seite  107 

Unter  »Wo  steht  was?«  hat 
sich  ein  Fehler  eingeschli- 
Ichen. 

Inter  Punkt  (4)  muß  stehen: 
50536  für  64632 
)asselbe  gilt  für  Zeile  160, 
|64632  =  $  FC78 
30536  =  $  EC78 
)er  Fehler  ist  also  schor 
in  der  Programmerstellunc 
mtstanden,  als  sich  für  ein 
sin  F  eingeschlichen  hat 

(Willi  Heusser) 


Pac-Boy,  8/84,  Seite  89 

Das  Abspeichern  des  Da-| 
tenblockes  »DATA-PAC«  auf 
)atasette  hat  sich  leider  als 
schwieriger  herausgestellt, | 
|als  angenommen,  Ein  Ab¬ 
speichern  ist  aber  dennocl 
folgendermaßen  möglich: 
|Das  Listing  »DATA-PAC«  wirc 
jie  folgt  abgeändert... 

|310  poke  56,128:clr:rem  spei-l 
sherplatz  fuer  ma  reservie-j 
ren 
1500: 

510: 

520: 

530: 

540: 

550: 

[560  for  t  =  0  to  5937:read 
:rem  ma  in  Speicher  brmgei 
|570  poke  32768  +  t,a  :next 
Diese  Änderung  bewirkt] 
[daß  der  Datenblock  nun  ir 
[Speicherbereich  32768  auf-j 
/ärts  abgelegt  wird  und  wei-f 
terbearbeitet  werden  kann. 
Nachdem  sich  DATA-PA( 
m  gelöscht  hat,  ist  fol-j 
|gendes  Listing  einzugeben.. 

datal69, 128, 133,21, 169, 0,133] 
[20,169,48,133,88,169,0,133,87, 
162,23,160 

1  dataO, 177, 20, 145, 87, 136, 208,| 
249,230,21,230,88,202,16,240, 
169,0,133,251 

2  datal69,48, 133,252,169,3,1 
162,1,160,3,32,186,255,169,6,1 
62,70,160,192,32 

3  datal89,255, 169,251, 162,0,| 
160,72,32,216,255,96,77,65,45, 
80,65,67,0 

|4  for  t=  0  to  76:reada:poke 
[49152  +  t,a:next 
|5  sys  49152 

Startet  man  dieses  Pro-I 
[gramm  mit  RUN,  so  wird  das 
Programm  »MA-PAC«  auf 
[Kassette  abgespeichert.  Da-) 
[mit  das  gesamte  Programr 
[ablauffähig  ist,  muß  außer-j 
|dem  noch  die  Zeile  40  im  Li-I 
|sting  »PAC-BOY«  zu 

10 . :load  nma-pac",l,l 

|abgeändert  werden.  Ab-I 
schließend  sei  noch  gesagt, 
laß  die  Programme  »PAC-| 
IBOY«  und  »MA-PAC«  auf  dei 
Cassette  hintereinander  ab-l 
(gespeichert  werden  sollten. 

(H.  SchlangmannJ 


[Spring  Vogel,  9/84,  Seite  82 

Das  beste  Listing  das  mir  in| 
leiner  Laufbahn  als  Com-| 
|puterfreak  untergekommen] 
ist,  ist  jenes  aus  der  Ausgabe| 
|9/84,  Seite  82.  Das  Druckfeh-| 
lerteufelchen  hat  jedoch] 
[auch  bei  diesem  Listing  zu-| 
[geschlagen.  Damit  das  Pro-| 
[gramm  korrekt  läuft  sollte| 
[man  folgendes  ändern: 

|Die  Zeilennummern  59999,1 
|60199,  60299,  60399,  60499| 
ländern  in 

|60000,  60200,  60300,  6040C 
60500. 

[Nach  Zeile  60030  sollte  mai 
|noch  folgende  Zeile  einzi¬ 
gen:  60100  REM  BILD  2.  Das 
[Zeichen  »_«  in  den  Zeilei 
|46050,  48041,  49096  und  49160| 
[bedeuted »— «. 

|Ansonsten  stimmt  alles  beir 
[»SPRING  VOGEL«,  und  es 
[wurde  bei  mir  sofort  zum  Li- 
[sting  des  Jahres  gewählt! 

(Lettner  Gerhard) 


|Merge  für  C  64, 10/84,  Seite  105 

2.  muß  wohl  richtig  lauten  :| 
|POKE  43,(PEEK(45)  +  256* 
PEEK(46)-2)  AND  255 
< RETURN > 

POKE  44,(PEEK(45)  +  256* 
PEEK(46)-2)/255 
< RETURN > 

Idann  funktioniert  es. 

(Klaus  de  Boorl 


Index-sequentielle  Datei, 

9/84,  Seite  56 

Folgende  Zeüen  müssen  kor-] 
Jrekt  lauten:  3350  IF  R$  =  "L"[ 
THEN  GOSUB  4000:  GOTC 
13220 

3340  IF  R$  =  ”A"  THEN  GO-| 
SUB  12000:  GOTO  3240. 


[Das  macht  den  Kleinen  größer,  9/84J 
[Seite  112 

[Die  beiden  Bildunterschrift 
|ten  wurden  vertauscht. 
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Software-Test 


C  64 

Der  CommodorG  64  coird 

zum  pC-mit\7izcicJorit<z  64 

Das  Textverarbeitungsprogramm  »Vizawrite  64«  ist  mit  Leistungsmerkmalen 
ausgestattet,  die  sehr  nahe  an  Wordstar  herankommen.  Dabei  kosten 
Vizawrite  und  Computer  zusammen  weniger  als  ein  vergleichbares 
Programm  für  einen  Personal  Computer. 


Sie  haben  sich  sicherlich  schon 
gefragt,  worin  der  Unterschied 
zwischen  einem  »Heimcompu¬ 
ter«  wie  dem  C  64  und  einem  Perso¬ 
nal  Computer  wie  dem  IBM-PC 
liegt.  Das  Computerlexikon  defi¬ 
niert  einen  Heimcomputer  als  einen 
preislich  zwar  günstigen,  aber  we¬ 
nig  leistungsfähigen  Computer  für 
Heim-  und  Hobbyanwendungen. 
Ein  Personal  Computer  ist  in  diesem 
Lexikon  als  ein  hauptsächlich  am 
Preis  (5000  bis  15000  Mark)  und  der 
fast  unbegrenzten  Erweiterungsfä¬ 
higkeit  erkennbarer  Computer  be¬ 
schrieben. 

Rein  technisch  gesehen  ist  der  Un¬ 
terschied  gar  nicht  so  frappierend. 
Ein  Vergleich  fällt  in  manchen  Berei¬ 
chen  (Grafik,  Farbe,  Ton)  nicht  sel¬ 
ten  zugunsten  des  Heimcomputers 
aus.  Derartige  Zusatzfunktionen 
sind  beim  PC,  wenn  überhaupt,  oft 
nur  mit  sehr  viel  Geld  zu  realisieren. 
Anders  sieht  es  bei  der  Verfügbar¬ 
keit  sehr  leistungsfähiger  Anwen¬ 
derprogramme  aus,  hier  haben  die 
PCs  die  Nase  vorn.  Ob  Datenban¬ 
ken  (dBase  II),  Textverarbeitung 
(Wordstar,  Word)  oder  Tabellenkal¬ 
kulation  (Multiplan),  jedes  dieser 
Programme  ist  ein  Spitzenprodukt. 
Mit  »Vizawrite  64«  wurde  ein  Pro¬ 
gramm  geschrieben,  das  den  Ab¬ 
stand  zwischen  einem  »Heimcompu¬ 
ter«  und  den  PCs  weiter  verringert. 
Der  Preisvorteil  der  Heimcomputer 
ist  geblieben. 

»Vizawrite  64«  ist  mit  der  lange  er¬ 
warteten  deutschen  Version  in  der 
Lage,  den  deutschen  Zeichensatz 
auf  dem  Bildschirm  darzustellen.  Ei¬ 
ne  unabdingbare  Forderung  an  ein 
Textverarbeitungsprogramm  für 
den  deutschen  Markt  wurde  damit 
erfüllt.  Die  deutsche  Version  ist  als 
Modul  und  auf  Diskette  erhältlich. 
Beide  Versionen  arbeiten  mit  einem 
oder  zwei  Laufwerken  und  sogar 
der  Datasette  zusammen.  Das  deut¬ 
sche  Handbuch  (56  Seiten)  macht 
insgesamt  einen  guten  Eindruck 


und  beschreibt  ausführlich  die 
enormen  Fähigkeiten  dieses  Pro¬ 
gramms. 

Diese  Fähigkeiten  wollen  wir  nun 
etwas  genauer  betrachten.  Nach 
dem  Laden  (beziehungsweise  Ein¬ 
schalten,  bei  der  Modulversion)  er¬ 
scheint  das  Hauptmenü  (Bild  1).  Hier 
hat  man  die  Auswahl  zwischen  dem 
Erstellen  einer  neuen  Textdatei, 
dem  Laden  einer  bestehenden 
Textdatei  oder  des  Disketteninhalts 
und  dem  Senden  von  DOS-Befehlen 
(New,  Scratch  ..,).  Vom  Hauptmenü 
aus  wird  auch,  nach  getaner  Arbeit, 
das  Programm  verlasse^  Zum  An¬ 
wählen  der  einzelnen  ^Aktivitäten 
dienen  die  Funktionstasten. 


Zum  Schreiben  einer  neuen  Text¬ 
datei  oder  nach  dem  Laden  eines 
bestehenden  Dokuments  wird  in 
den  Textverarbeitungsmodus  ge¬ 
schaltet  (Bild  2). 


Das  zur  Verfügung  stehende  Ar¬ 
beitsfeld  ist  20  Zeilen  hoch  und  hat 
eine  variable  Breite  von  bis  zu  240 
Spalten.  Auf  dem  Bildschirm  er¬ 
scheinen  aber  immer  nur  40  Zei¬ 
chen.  Ab  dem  38.  Zeichen  wird  der 
Text  horizontal  verschoben  (scrol- 
ling),  Besitzer  eines  PCs  kontern 
hier:  »Aber  mein  PC  kann  jederzeit 
80  Zeichen  pro  Zeile  darstellen.« 
Stimmt,  aber  wenn  man  bedenkt, 
daß  selbst  Wordstar  in  der  Regel 
nur  65  Zeichen  benutzt,  ist  dies  nicht 
unbedingt  ein  Nachteil.  Auch  hat 
nicht  jeder  Computer besitzer  einen 
Monitor,  der  die  notwendige  Auflö¬ 
sung  für  80  Zeichen  bereitstellen 
kann,  sondern  einen  ganz  normalen 
Fernseher.  Für  diesen  sind  aber  40 
Zeichen  pro  Zeile  mit  horizontalem 
Verschieben  geradezu  ideal.  Daß 
der  ganze  Text  trotzdem,  ohne  lästi¬ 
ges  Hin-  und  Herfahren  mit  dem 
Cursor  überschaubar  ist,  ermög¬ 
licht  die  »WIDTH  =  Bildschirmbrei- 
te«-Funktion.  Auf  Tastendruck 
(CBM+w)  wird  der  gesamte  Text 
auf  38  Zeichen  umformatiert.  Der 
Zeitbedarf  für  diese  Umformung  ist 
fast  nicht  meßbar. 

Alle  Informationen  des  Textverar¬ 
beitungsmodus  stehen  in  den  obe¬ 
ren  drei  und  der  untersten  Zeile. 
Dort  erscheinen  Fehler-,  Systemmel¬ 
dungen,  die  Seiten-,  Zeilen-  und 
Spaltennummern  sowie  der  Name 
des  Dokuments.  Die  vierte  Zeile  ist 
die  sogenannte  Formatzeile.  Sie  be¬ 
stimmt  das  Aussehen  des  Textes. 
Hier  werden  Textbreite,  Tabulato¬ 
ren  und  die  später  noch  beschrie¬ 
benen  Kontroll-Marken  festgelegt. 
Die  Formatzeile  ist  an  jede  beliebi¬ 
ge  Stelle  im  Text  kopierbar 
(CTRL  +  f).  Sie  gibt  dem  Text  ab  dort 
ein  neues  Aussehen. 

»Vizawrite  64«  ist  ein  bildschirm¬ 
orientiertes  Textverarbeitungspro¬ 
gramm.  Alle  Texte  werden  forma¬ 
tiert  eingegeben  und  erscheinen 
praktisch  so  auf  dem  Bildschirm, 
wie  sie  später  auf  dem  Papier  ste- 
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hen.  Im  Gegensatz  zu  anderen  Text¬ 
verarbeitungsprogrammen  wird 
kein  Wort  am  Zeilenende  abge¬ 
schnitten,  sondern  statt  dessen  in 
die  nächste  Zeile  übernommen 
(word  wrap).  jedes  Dokument  kann 
beliebig  viele  Seiten  haben,  die  ei¬ 
ner  späteren  Druckseite  entspre¬ 
chen.  Bei  einem  freien  Arbeitsspei¬ 
cher  von  34000  Zeichen  finden  so 
zehn  »normal«  beschriebene 
Schreibmaschinenseiten  Platz.  Das 
ist  wesentlich  mehr  als  bei  anderen 
Programmen. 


Schnelles  Arbeiten 
möglich 


Vizawrite  ist  schnell.  Wir  haben 
den  Test  gemacht  und  den  gesam¬ 
ten  Speicher  gefüllt,  Dabei  gab  es 
keine  Probleme  mit  der  Geschwin¬ 
digkeit.  Selbst  das  letzte  Zeichen 
wird  ohne  Verzögerung  angenom¬ 
men.  Beachtlich  gering  ist  auch  der 
Zeitverbrauch  beim  Umformatie¬ 
ren.  Von  40  auf  80  Zeichen  haben  wir 
nur  eine  Sekunde  gemessen.  Der 
IBM-PC  braucht  dafür,  zusammen 
mit  Wordstar,  mehrere  Minuten  (je 
nach  Länge  des  Textes). 

Die  Befehle  des  Textverarbei¬ 
tungsmodus  bestehen  im  wesentli¬ 
chen  aus  drei  Hauptgmppen: 

1.  Die  Systembefehle  wie  Laden, 
Finden,  Drucken  und  vieles  mehr. 

2.  Die  Formatsymbole  wie  Tabulato¬ 
ren  und  Befehle  zur  Druckersteue¬ 
rung, 

3.  Die  Funktionstasten. 

Alle  Befehle  und  Funktionen  von 
»Vizawrite  64«  können  zu  jeder  Zeit 
und  an  jeder  Stelle  des  Textes  auf¬ 
gerufen  werden.  Dazu  ist  kein  lang¬ 
wieriger  Marsch  durch  verschiede¬ 
ne  Menüs  notwendig.  Die  Befehle 
sind  einprägsam  und  logisch.  So  be¬ 
deutet  beispielsweise  CBM  +  s  (s 
für  SAVE),  daß  der  Text  abgespei¬ 
chert  wird.  Obwohl  die  Befehle 
schnell  erlernbar  sind,  kann  man 
sich  in  der  Anfangszeit  mit  einem 
Trick  behelfen:  Das  mitgelieferte 
Programm  »Hilfe«  wird  gemäß  der 
Anleitung  in  die  sogenannte  »work 
page«  oder  Arbeitsseite  geladen. 
Die  Arbeitsseite  ist  ein  separater 
Textspeicher,  aus  dem  oder  in  den 
Texte  kopiert  werden.  Alles,  was 
der  Anwender  dann  noch  wissen 
muß,  ist  der  Befehl  CBM  +  g.  Beant¬ 
wortet  er  die  Frage  nach  der  anzu¬ 
zeigenden  Seite  mit  »w«,  so  befindet 
er  sich  auf  der  »work  page«.  Dort 
kann  er  sich  dann  über  alle  Befehle 
und  Funktionen  informieren. 


Die  Systembefehle  sind  die  lei¬ 
stungsfähigsten  Anweisungen  von 
»Vizawrite  64«.  Sie  rufen  wichtige 
Funktionen  auf  und  beginnen  im¬ 
mer  mit  der  CBM-Taste.  Daraufhin 
erscheint  in  der  Kommandozeüe  die 
Frage  nach  der  gewünschten  Funk¬ 
tion. 

Der  Anwender  hat  nun  die  Aus¬ 
wahl  zwischen  16  verschiedenen 
Funktionen: 

1.  CBM  +  c:  Text  kopieren.  Mit  Hilfe 
der  Cursortasten  wird  der  Text,  der 
kopiert  werden  soll,  markiert.  Dies 
geschieht  durch  einfaches  Dar¬ 
überfahren  mit  dem  Cursor.  Die 
markierten  Textteile  erscheinen 
farblich  abgehoben.  Durch  Ab¬ 
wärtsbewegen  des  Cursors  werden 
ganze  Zeilen,  durch  Drücken  der 
fl-Taste  ganze  Seiten  und  mit  der 
f3-Taste  eine  Bildschirmseite  mar¬ 
kiert.  Nach  dem  Markieren  wird  nur 
noch  der  Bestimmungsort  des  Text¬ 
teils  festgelegt  und  mit  Return  quit¬ 
tiert.  Der  Text  befindet  sich  dann  an 
der  neuen  und  der  alten  Stelle  im 
Dokument. 

2.  CBM  +  m:  Text  verschieben.  Hat 
die  gleiche  Funktion  wie  Text  kopie¬ 
ren,  mit  dem  Unterschied,  daß  der 
markierte  Bereich  an  seiner  ur¬ 
sprünglichen  Position  gelöscht  wird. 

3.  CBM  +  f.  Finden  eines  bestimm¬ 
ten  Ausdrucks.  Die  Länge  des  Aus¬ 
drucks  ist  dabei  auf  25  Zeichen  be¬ 
schränkt. 

4.  CBM  +  F:  Finden  eines  Aus¬ 
drucks,  ohne  dabei  auf  Groß/Klein¬ 
schreibung  zu  achten, 

5.  CBM  +  g:  Zu  einer  bestimmten 
Seite  springen.  Mit  dieser  Funktion 
erscheint  die  angewählte  Seite  im 
Textfenster.  Andererseits  werden  so 
die  separaten  Seiten  für  Kopfzeile, 
Schlußzeile  sowie  die  Arbeitsseite 
(work  page)  erreicht. 

6.  CBM  +  d:  DOS-Befehle  senden. 
Dieser  Befehl  dient  der  Handha¬ 
bung  des  Diskettenlaufwerks. 

7.  CBM  +  M:  Einfügen  von  Doku¬ 
menten.  Eine  sehr  wichtige  Funk¬ 
tion,  mit  der  an  einen  Text  im  Spei¬ 
cher  ein  Textteü  von  Diskette  nach¬ 
geladen  wird.  Der  Merge-Befehl 
dient  aber  auch  zum  Einlesen  ver¬ 
schiedener  Dateiarten.  Es  können 
Dateien  von  anderen  Textverarbei¬ 
tungsprogrammen  wie  Wordpro 
3  +  ,  Easyscript,  SM-Text  und  vielen 
anderen  eingelesen  werden,  Im 
Rahmen  des  später  beschriebenen 
Erstellens  von  Serienbriefen  dient 
diese  Funktion  dem  Einlesen  der 
Adreßdateien  von  Vizastar  oder  an¬ 
deren  Datenbanken. 

8.  CBM  +  n:  Neubenennen  eines 
Textes. 


9.  CBM  +  p:  Drucken.  In  dem  dann 
erscheinenden  Druckermenü  (Bild 
3)  können  alle  wesentlichen  Einstel¬ 
lungen,  die  auf  das  gesamte  Schrift¬ 
stück  wirken  sollen,  definiert  wer¬ 
den. 

10.  CBM  +  q:  Arbeit  beenden.  Mit 
dieser  Funktion  wird  zum  Hauptme¬ 
nü  (Bild  1)  zurückgekehrt.  Sollte  der 
Text  im  Speicher  mit  der  zuletzt  gela¬ 
denen  Version  nicht  übereinstim¬ 
men,  wird  der  Anwender  gewarnt 
und  zum  Abspeichern  aufgefordert. 

11.  CBM  +  r:  Ersetzen  eines  Aus¬ 
drucks,  Der  auszutauschende  Text 
wird  wie  unter  1.  beschrieben  mar¬ 
kiert  und  durch  bis  zu  28  neue  Zei¬ 
chen  ersetzt. 

12.  CBM  +  R:  Globales  Austau¬ 
schen.  Der  Ausdruck  wird  nicht  nur 
an  einer  bestimmten  Stelle  ersetzt, 
sondern  im  gesamten  Text. 


13.  CBM  +  s:  Abspeichern  des  Tex¬ 
tes.  Vizawrite  produziert  PRG-Fües, 
in  denen  alle  Informationen  des  be¬ 
stimmten  Textes  mit  abgelegt  sind. 
Sowohl  die  Farbgebung,  alle  Forma¬ 
tierungen  als  auch  die  gewählte 
Druckereinstellung  werden  zusam¬ 
men  mit  dem  Text  abgespeichert. 
Bereits  bestehende  Dateien  mit 
dem  gleichen  Namen  werden  aller¬ 
dings  überschrieben. 

14.  CBM  +  t:  Änderung  der  Farbge¬ 
bung. 

15.  CBM  +  w:  Ändern  der  Doku¬ 
mentbreite  auf  38  Zeichen. 

16.  CBM  +  x:  Einstellen  auf  andere 
Gerätekonfigurationen.  Bis  zu  zwei 
Diskettenlaufwerke  sind  ansprech¬ 
bar,  aber  auch  eine  Einstellung  auf 
die  Datasette  ist  machbar.  Wer  sei¬ 
nen  Drucker  (oder  mehrere 
Drucker)  betreiben  möchte,  hat  hier 
Gelegenheit,  die  Geräteadresse 
des  Druckers  auf  5  einzustellen.  Wir 
haben  es  mit  dem  1520  Printer/Plot¬ 
ter  versucht  und  hatten  Erfolg.  Auch 
auf  diesem  Gerät  wird  jeder  Text 
ausgedruckt  (Bild  4).  Die  einzelnen 
Schriftarten  des  Plotters  eignen  sich 
besonders  für  Aufkleber  und  Be¬ 
schriftungen. 

Kein  anderes  mir  bekanntes  Text- 
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Verarbeitungsprogramm  hat  eine 
ähnliche  Fülle  von  Befehlen,  die  mit 
vergleichbarer  Geschwindigkeit 
und  Zuverlässigkeit  funktionieren. 
Damit  es  auch  bei  der  Texteingabe 
an  keinem  Komfort  mangelt,  haben 
einige  Tasten  Sonderfunktionen. 

Die  Funktionstasten  dienen  zum 
seitenweisen  oder  bildschirmwei¬ 
sen  Vor-  oder  Zurückblättern  sowie 
dem  komfortablen  Einfügen  und  Lö¬ 
schen.  Ein  Druck  auf  die  f7-Taste  ge¬ 
nügt,  um  beliebig  viele  Zeilen  in  ei¬ 
nen  Text  einfügen  zu  können.  Ein 
zweiter  Druck  auf  dieselbe  Taste 
oder  die  Stop-Taste  fügt  den  restli¬ 
chen  Text  nahtlos  wieder  an.  Die 
f8-Taste  sorgt  für  das  schnelle  Lö¬ 
schen  von  Textteilen.  Der  Text  wird, 


wie  unter  Punkt  1  der  Befehlsfunk¬ 
tionen  beschrieben,  markiert  und 
nach  dem  Quittieren  mit  der  Return- 
Taste  blitzschnell  gelöscht.  Nicht 
selten  wird  es  bei  der  Texteingabe 
notwendig,  große  Sprünge  durch 
den  Text  zu  machen.  Die  Taste  »HO¬ 
ME«  bewirkt  beim  ersten  Druck  ei¬ 
nen  Spmng  zum  oberen  Rand  des 
Bildschirms  und  beim  zweiten 
Druck  den  Sprung  zum  Anfang  des 
Textes.  Zurück  geht  es  mit  der 
»CLR«-Taste,  die  den  Cursor  an  das 
Textende  bewegt. 

»Vizawrite  64«  ist,  wie  schon  ge¬ 
sagt,  bildschirmorientiert.  Deshalb 
ist  es  natürlich  gut,  schon  bei  der 
Eingabe  auf  die  entsprechende  For¬ 
matierung  des  Textes  zu  achten.  Der 
Anwender  wird  dabei  tatkräftig  un¬ 
terstützt.  Seine  Hilfsmittel  sind  Text¬ 
tabulatoren,  numerische  Tabulato¬ 
ren,  Formatzeilen,  Einrück-  und  Zen¬ 
trierbefehle.  Die  f5-  und  f6-Tasten 
dienen  dabei  dem  schnellen 
Sprung  von  einem  Tabulator  zum 
nächsten  oder  vom  Anfang  einer 


Zeile  zum  Ende.  Auch  die  Komman¬ 
dos  zur  Druckersteuerung  bildet 
»Vizawrite  64«  auf  dem  Bildschirm 
ab.  Dabei  sind  eine  Reihe  von  Kon- 
trollbefehlen  bereits  »fest  verdrah¬ 
tet«.  Fettschrift,  Unterstreichen,  Sub- 
und  Superscript  haben  ihre  festen 
Symbole,  die  mit  vorangestellter 
CTRL-Taste  in  den  Text  eingefügt 
werden.  Um  aber  optimale  Flexibili¬ 
tät  für  die  Fähigkeiten  verschiede¬ 
ner  Drucker  bereitzustellen,  kann 
jeder  Anwender  beliebig  viele  Be¬ 
fehle  selbst  definieren.  Dies  ge¬ 
schieht  in  der  Formatzeile.  Die  Zif¬ 
fern  0  bis  9  erhalten  dort  Werte,  die, 
bei  Wiederholung  im  Text,  den 
Drucker  steuern.  Die  bei  manchen 
Druckern  üblichen  ESC-Sequenzen 


müssen  dabei  nicht  explizit  definiert 
werden.  Es  genügt,  hinter  der  Zahl 
des  Kontrollbefehls  den  Buchstaben 
der  betreffenden  Sequenz  anzufü¬ 
gen. 

Optimale  Drucker¬ 
steuerung 

Das  Umschalten  eines  Epson- 
Druckers  auf  »Elite«-Schrift  sieht  in 
der  Formatzeüe  beispielsweise  so 
aus:  0  =  M.  Da  aber  beliebig  viele 
Formatzeilen  einfügbar  sind,  ist  die 
Anzahl  der  Kontrollbefehle  unbe¬ 
grenzt. 

Zu  den  Kontrollbefehlen  gehört 
auch  das  »Merge«-Zeichen.  Es  ist 
bei  der  Erstellung  von  Serienbrie¬ 
fen  unverzichtbar,  denn  immer  dort, 
wo  ein  »Merge«-Zeichen  steht,  wird 
eine  Information  aus  der  Arbeitssei¬ 
te  (work  page)  eingefügt.  Dort  kön¬ 
nen,  entweder  von  Hand  eingege¬ 
ben  oder  aus  einer  Datenbank 


Adressen  eingeladen  werden.  Die 
Position  »Global/Fill«  im  Drucker¬ 
menü  (Bild  3)  sorgt  dann  dafür,  daß 
der  Brief  entsprechend  oft  mit  den 
eingefügten  Daten  ausgedruckt 
wird.  Selbstverständlich  können 
auch  beliebig  viele  Dokumente  an¬ 
einandergehängt  werden.  Die  einzi¬ 
ge  Grenze,  die  dem  pausenlosen 
Drucken  gesetzt  ist,  ist  die  Speicher¬ 
kapazität  der  Diskette. 

Die  wichtigste  aller  Funktionen  ei¬ 
nes  Textverarbeitungsprogramms 
ist  aber  das  Ausdrucken.  Und  hier 
trumpft  »Vizawrite  64«  erst  richtig  auf. 

Eingebaute  Centronics- 
Schnittstelle 


Vizawrite  64  hat  ein  eigenes,  ein¬ 
gebautes  Centronics-Soft-Interface, 
das  den  Anschluß  eines  Druckers 
mit  dieser  Schnittstelle  problemlos 
macht.  Die  einzigen  zusätzlich  ent¬ 
stehenden  Kosten  bestehen  in  ei¬ 
nem  50-Mark-Kabel.  Für  den  An¬ 
schluß  eines  CBM-Druckers  wird 
dieses  Kabel  natürlich  nicht  benö¬ 
tigt.  Leider  kann  Vizawrite  64  auf 
diesen  Druckern  noch  keine  deut¬ 
schen  Umlaute  erzeugen.  Dafür  ar¬ 
beiten  aber  fast  alle  anderen 
Drucker  und  Schreibmaschinen  mit 
Vizawrite  ausgezeichnet  zusammen. 
Dabei  ist  es  fast  ohne  Belang,  mit 
welchem  Interface  der  Drucker  an¬ 
geschlossen  ist.  Der  Centronics- 
Interface-Vergleich  in  Heft  7/84 
zeigte,  daß  Vizawrite  64  als  einziges 
Textverarbeitungsprogramm  mit  al¬ 
len  Schnittstellen  einwandfrei  funk¬ 
tionierte.  Auch  die  Original-Epson- 
Schnittstelle  ist  geeignet. 

Ganz  besonders  positiv  sind  die 
Handhabung  und  die  Hilfen  wäh¬ 
rend  des  Ausdrucks.  Zum  einen 
kann  der  Ausdruck  jederzeit  ge¬ 
stoppt,  fortgesetzt  oder  neu  begon¬ 
nen  werden.  Zum  anderen  helfen 
sinnvolle  Hinweise  beim  Aus¬ 
drucken  mit  Einzelblatteinzug.  Da¬ 
bei  steht  vor  dem  Ausdrucken  noch 
zur  Wahl,  ob  in  Blocksatz  gedruckt 
oder  welcher  Zeilen-  beziehungs¬ 
weise  Zeichenabstand  gelten  soll. 
Papierlänge,  linker  Rand,  automati¬ 
scher  Seitenvorschub  und  Anfügen 
einer  Kopfzeile  auf  jeder  Seite  sind 
weitere  Funktionen,  die  einfach  und 
schnell  im  Druckermenü  bestimm¬ 
bar  sind. 

Vizawrite  64  ist  enorm  zuverlässig. 
Außer  mit  brutaler  Gewalt  (Reset¬ 
knopf)  ist  das  Programm  kaum  zum 
Abstürzen  zu  bringen.  Ein  einziges 
Mal  während  des  Tests  dachten  wir, 
Vizawrite  hätte  sich  »aufgehängt«. 
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Dies  war  der  Fall,  als  die  »Shift«-  und 
die  »CBM«-Taste  zu  gleicher  Zeit  ge¬ 
drückt  wurden.  Es  war  danach  nur 
noch  wirres  Zeug  auf  dem  Bild¬ 
schirm.  Ein  erneuter  Druck  auf  die 
gleichen  Tasten  stellte  aber  den  Ori¬ 
ginalzustand  wieder  her  (eine  her¬ 
vorragende  Möglichkeit,  Texte  blitz¬ 
schnell  vor  fremden  Blicken  zu 
schützen). 

Bei  so  vielen  positiven  Eigenschaf¬ 
ten  sind  auch  ein  paar  negative  Ei¬ 
genheiten  von  Vizawnte  64  anzu¬ 
merken:  Es  wurde  keine  vollständi¬ 
ge  DIN-Tastatur  implementiert 
»Blindschreiber«  müssen  sich  also 
etwas  umgewöhnen.  Die  deutschen 
Umlaute  gibt  es  nur  auf  Druckern 
von  Fremdherstellern.  Und  letztlich 
ist  es  schade,  daß  em  so  hervorra¬ 
gendes  Produkt  noch  in  englisch  ge¬ 
schrieben  ist.  Ein  Umstand,  den  der 
Hersteller  möglichst  bald  ändern 
sollte. 

Mit  320  Mark  für  die  Diskettenver¬ 
sion  und  360  Mark  für  die  Modulver- 
sion  ist  Vizawrite  64  sicherlich  nicht 
billig.  Gemessen  an  den  Leistungen 
ist  dieser  Preis  aber  mit  Sicherheit 
mehr  als  gerechtfertigt. 


Auch  für  Unternehmer 
interessant 


Vizawrite  64  ist  nicht  nur  für  den 
ambitionierten  Privatanwender  in¬ 
teressant,  sondern  auch  für  all  jene 
Unternehmen,  die  mit  möglichst  we¬ 
nig  Investitionskosten  ein  leistungs¬ 
fähiges  Computersystem  erwerben 
wollen.  Der  Commodore  64  zusam¬ 
men  mit  Diskettenlaufwerk,  einem 
Monitor  und  einem  Epson  FX  80  ko¬ 
stet  zum  Beispiel  inklusive  Vizawrite 
64  weniger  als  4000  Mark.  Den  Lö¬ 
wenanteil  mit  über  1 500  Mark  trägt 
dabei  der  Drucker.  Für  einen  PC  mit 
gleichem  Drucker  (und  der  be¬ 
stimmt  ja  schließlich  das  Druckbild) 
ist  mindestens  das  Doppelte  bis 
Dreifache  zu  bezahlen.  Das  Endpro¬ 
dukt,  der  ausgedruckte  Text,  unter¬ 
scheidet  sich  aber  in  keiner  Weise 
von  dem  mit  einem  PC  erstellten. 
Auch  steht  die  Geschwindigkeit  und 
der  Komfort  bei  der  Eingabe  einem 
PC  kaum  nach. 

In  der  nächsten  Ausgabe  werden 
wir  em  weiteres  Produkt  dieser  Rei¬ 
he  vorstellen:  Vizastar,  eine  kombi¬ 
nierte  Datenbank  und  Tabellenkal¬ 
kulation.  Der  Commodore  64  ist  ein 
preiswerter,  aber  vielseitiger  PC  — 
Sie  dürfen  gespannt  sein. 

(Arnd  Wängler/aa) 

Bezugsquelle  Microton,  Postlacb  40,  CH-2542  Pieterlen 
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Lohnstcuer- 

jahresacisgleich 

leichtgemacht 

Der  Kampf  mit  den  Formularen  für  den  Lohnsteueijah- 
resausgleich  ist  mühsam  und  nervenaufreibend. 

Mit  dem  Programm  HL-LOJA-64 
soll  das  anders  werden. 


Die  Autoren  dieses  Programms 
haben  sich  an  ein  heikles  The¬ 
ma  herangewagt.  Die  mitgelie¬ 
ferte  Beschreibung  ist  recht  spärlich 
ausgefallen.  Doch  diesen  Nachteil 
fängt  das  Programm. mit . einer  einfa¬ 
chen  Bedienbarkeit,  leicht  verständ¬ 
lichen  Texten  und  einer  sich  stets 
wiederholenden  Korrekturabfrage 
ab.  Als  Muster  sind  dem  Handbuch 
eine  Lohnsteuerkarte  und  ein  For¬ 
mular  für  den  Lohnsteuer]  ahres- 
ausgleich  (für  das  Jahr  ’83)  beige¬ 
legt. 


Das  Programm 


Nach  dem  Starten  des  Programms 
werden  zuerst  die  persönlichen  Da¬ 
ten,  wie  Geburtsdatum,  Anzahl  der 
Kinder  und  die  Kirchenzugehörig- 
keit  abgefragt.  Dann  werden  die 
Eintragungen,  die  sich  auf  der  Steu¬ 
erkarte  befinden,  in  das  Programm 
übertragen.  Auch  hier  kann  man 
ständig  Fehleingaben  korrigieren. 

Nachdem  dieser  Programmteil 
durchlaufen  ist,  wird  mit  Hilfe  des 
nächsten  Teiles  die  Anlage  N  des 
Formulares  ausgefüllt.  Das  Pro¬ 
gramm  fragt  einzeln  die  steuerrele¬ 
vanten  Daten  ab,  und  weist  darauf 
hm,  welche  Einträge  vorzunehmen 
sind. 

Ist  die  Anlage  N  ganz  ausgefüllt, 
wird  der  Hauptvordruck  in  Angriff 
genommen.  Das  Verfahren  beim 
Ausfüllen  ist  das  gleiche  wie  bei  der 
Anlage  N. 

Nachdem  das  Ausfüllen  mit  der 
Unterschrift  unter  den  Antrag  abge¬ 


schlossen  ist,  berechnet  das  Pro¬ 
gramm  die  fälligen  Steuern  und  den 
Betrag,  den  man  nachzahlen  muß 
oder  erstattet  bekommt. 

Fazit 

Über  die  Zweckmäßigkeit  dieses 
Programms  kann  man  geteilter  Mei¬ 
nung  sein.  Solange  es  nur  als  Hilfe¬ 
stellung  zum  Ausfüllen  des  Jahres¬ 
ausgleichs  benutzt  wird,  ist  der 
Preis  von  98  Mark  sicherlich  nicht  zu 
hoch  (man  kann  auch  diesen  Kauf¬ 
preis  unter  »Steuerberatungsko¬ 
sten«  absetzen).  Erwartet  man  aller¬ 
dings  ein  Programm,  das  den  even¬ 
tuell  nötigen  Gang  zum  Steuerbera¬ 
ter  ersetzt,  wird  man  enttäuscht.  We¬ 
der  Handbuch  noch  Programm  ge¬ 
ben  konkrete  Hmweise  über  Absetz¬ 
barkeit  mancher  Kosten.  Man  sollte 
also  möglichst  genau  wissen,  was 
und  wieviel  man  in  dem  Antrag  an 
Kosten  ansetzen  muß.  In  diesen  Fäl¬ 
len  wird  das  Programm  wirklich  voll 
ausgenutzt.  Allerdings  können  die 
Berliner  damit  recht  wenig  anfan¬ 
gen.  Die  Berlinvergünstigung  ist 
nicht  berücksichtigt.  Vor  Ände¬ 
rungen  der  Steuergesetzgebung 
braucht  man  keine  Angst  zu  haben. 
Das  Programm  wird,  wie  der  Her¬ 
steller  mitteilt,  bei  Änderungen  ak¬ 
tualisiert  und  bei  Einsendung  einer 
Originaldiskette  ausgetauscht,  (rg) 


Bezugsquelle;  HL  Computer-Software  GmbH,  Hammstr.  8, 
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Bestellt  man  von  Interface  Age 
das  Programm  Ex-DOS  &  Disk 
Doctor  (138  Mark),  erhält  man 
ein  gutes,  zirka  50  Seiten  umfassen¬ 
des  deutsches  Handbuch  in  Heft¬ 
form,  sowie  eine  gut  verpackte  Dis¬ 
kette.  Gut  verpackt  heißt,  daß  in  der 
Diskettenhülle  eine  Metallscheibe 
(5  ^-Zoll-Größe)  direkt  unter  der 
Diskette  liegt.  So  wird  auf  einfache 
Weise  eine  Beschädigung  beim 
Versand  verhindert.  Genausogut 
wie  die  Verpackung  ist  auch  das 
Programm.  Allerdings  muß  dazu  ge¬ 
sagt  werden,  daß  dieses  Programm 
nicht  für  Anfänger  geeignet  ist,  die 
noch  keine  Ahnung  vom  Arbeiten 
mit  der  Floppystation  haben.  Viel¬ 
mehr  wird  der  Inhalt  des  Commodo- 
re-Floppy-Handbuchs  zum  Ver¬ 
ständnis  des  Ex-DOS  &  Disk  Doctors 
als  bekannt  vorausgesetzt.  Hat  man 
jedoch  diese  Kenntnisse,  so  kann 
man  sie  mit  Hilfe  von  Ex-DOS  &  Disk 
Doctor  voll  ausnutzen. 


Was  das  Programm  kann 

Das  Programm  ist  im  großen  und 
ganzen  menügesteuert.  Jede  der 
vom  Menü  aus  ansteuerbaren  Mög¬ 
lichkeiten  wird  vom  Hersteller 
Programm-Modul  genannt.  Ex-DOS 
besitzt  folgende  Module: 


Jeder  Programmierer  möchte  mit  wachsender  Erfah¬ 
rung  seinem  Floppy-Laufwerk  und  seinen  Disketten 
auch  die  letzten  Geheimnisse  entreißen.  Mit  Ex-DOS 
&  Disk  Doctor  erhält  er  ein  sehr  leistungsfähiges 
Werkzeug  dazu. 


EX-DOS  &  Disk  Doctor  C  64  ✓  UC1541 
CC>  1984  by  H.Staeudel  fi  ft.  Dr»pke 


Menu  CoM«ands: 

fi  ftctivate  Unit  8 
f 3  Character  Color 
S  ßackgr .  Color 
I  Initial i ze 
C  Catalog 
D  Ext,  Directory 
B  Bfth 
S  Sectors 
T  Tracks 
X  Buffers 
H  Disk  CPU  Mewory 
Q  Quit  SysteH 


Module  CoMMands: 

fl  Flip  Page  >  < 
f 3  Last  Page 
f 5  Hext  Page 
M  Mod i f y 
#  Decinal  Output 
$  Hex  Output 

H  Hardcopy  Unit  4 
R  Re-read  Data 
W  Write  back 
t  Return  to  Menu 


Modify  CoMMands: 


Dec inai 

Hex 

ASCII 


Input  Z  Zero  Data 

Input  R  Re-read  Data 

Input  W  Write  back  &  t 

t  Return  to  Module 


C  Catalog 
D  Extended  Directory 
B  BAM 
S  Sectors 
T  Tracks 
X  Buffers 

M  Disc-CPU-Memory 

Das  Catalog-Modul  listet  das  In¬ 
haltsverzeichnis  der  Diskette  auf, 
wobei  die  Ausgabe  mit  der  SPACE- 
Taste  unterbrochen  werden  kann. 
Das  »Extended  Directory«  bietet 
hier  noch  mehr:  Man  kann  im  In¬ 
haltsverzeichnis  alles,  was  das  Herz 
begehrt,  ansehen  und  beliebig  än¬ 
dern,  und  beispielsweise  ohne 
Schwierigkeiten  den  Namen  eines 
Files,  den  Filetyp  (PRG,  SEQ,  USR, 
DEL,  REL),  die  angezeigte  Blockzahl 
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Mit  diesem  Bild  meldet  sich  Ex-DOS.  Es  zeigt  zu 
wichtigen  Kommandos. 

sowie  den  Anfangstrack  und  -sektor 
eines  Files  manipulieren.  Auf  einen 
einfachen  Tastendruck  hin  »locked« 
man  Files,  das  heißt  man  schützt  sie 
vor  dem  Löschen  und  Umbenen¬ 
nen.  Ebenso  einfach  läßt  sich  der 
ganze  Vorgang  auch  wieder  umkeh¬ 
ren.  Sollten  Sie  Lust  haben,  die  Pro¬ 
grammnamen  nach  Directory- 
Reihenfolge  durchzunumerieren, 
sie  mit  Leerstellen  aufzufüllen  oder 
zu  sortieren,  dann  genügt  ein  Ta¬ 
stendruck.  Genauso  einfach  ent¬ 
fernt  man  Lücken  zwischen  den  Ein¬ 
trägen  oder  fügt  Platz  für  weitere 
Namen  im  Directory  ein.  Beim  Sor¬ 
tieren  der  Files  ist  es  allerdings  la¬ 


den  anwählbaren  Modulen  auch  eine  Erklärung  der 

] 

stig,  daß  die  REL-Fües  im  Inhaltsver¬ 
zeichnis  an  den  Anfang  gesetzt  wer¬ 
den.  Denn:  Will  ich  mit  LOAD  »*«,  8 
das  erste  Programm  von  einer  Dis¬ 
kette  laden,  wird  ein  FILE  NOT 
FOUND  ERROR  ausgegeben,  weil 
das  erste  vorhandene  File  kein  PRG- 
File  ist.  Hier  wäre  eine  bessere  Rei- 
i  henfolge  von  Vorteil. 

Das  nächste  Programm-Modul, 
der  Zugriff  auf  die  Block-Availability- 
Map,  bietet  folgende  Möglichkeiten: 
Man  kann  nach  freien  und  belegten 

I  Sektoren  suchen,  einzelne  Blöcke 
belegen  und  wieder  freimachen. 
Mit  der  Option  »Extended  BAM«  läßt 
sich  außerdem  nach  Blöcken  su- 
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Förth  ohne  Floppy 


Die  virtuelle  Speicherverwaltung  der  Forth-Systeme  er¬ 
fordert  meistens  ein  Floppy-Laufwerk.  Das  Audiogenic- 
Forth  benötigt  dagegen  nur  eine  Datasette. 


Der  Befehlsumfang  des  Audio- 
genic-Forth  beschränkt  sich  im 
wesentlichen  auf  den  FIG-Forth- 
Standard  und  ist  in  einem  einzigen 
Vokabular  zusammengefaßt.  Dies 
bedeutet  im  Vergleich  mit  anderen 
Forth-Versionen  eine  gewisse  Ein¬ 
schränkung.  Mancher  Benutzer 
wird  spezielle  Befehle  zum  Anspre¬ 
chen  eines  Floppy-Laufwerkes  ver¬ 
missen,  Dieses  Manko  erklärt  sich 
aus  der  Zielgruppe,  an  die  sich  die¬ 
se  Forth-Version  primär  wendet:  An 
jene  Computerbesitzer,  die  ohne 
Floppy-Laufwerk  auskommen  müs¬ 
sen  und  sich  lediglich  einer  Dataset¬ 
te  bedienen.  Dementsprechend 
wurden  die  Befehle  für  die  Floppy 
einfach  fortgelassen. 

Doch  wenden  wir  uns  der  Spei¬ 
cherverwaltung  zu.  Im  Gegensatz 
zur  sonst  üblichen  virtuellen  Spei¬ 
cherverwaltung  wurde  bei  dieser 
Forth-Version  eine  »screen  compres- 
sing  routine«  implementiert,  Diese 
Routine  reduziert  zum  Beispiel  einen 
leeren  Screen  auf  eine  Länge  von 
nur  5  Bytes.  So  hat  man  alle  255  mög¬ 
lichen  Screens  ständig  im  Speicher, 
also  im  direkten  Zugriff.  Ein  ständi¬ 
ges  Laden  und  Speichern  von  und 
auf  Diskette  ist  somit  überflüssig. 

Das  Textfeld  Nummer  Null  fun¬ 
giert  als  Interpreterscreen.  Hier 
werden  alle  Benutzereingaben  so¬ 
fort  ausgewertet  und  gegebenen¬ 
falls  compiliert.  Beim  interaktiven 
Arbeiten  mit  dem  System  stört  es 
häufig,  daß  alle  auf  dem  Bildschirm 
ausgegebenen  Ergebnisse  nach 
Betätigen  einer  Taste  (für  die  näch¬ 
ste  Eingabe)  wieder  verschwinden. 

Ebenso  wie  Screen  0  werden 
auch  die  übrigen  Textfelder  mit  ei¬ 
nem  zeilenorientierten  Editor  bear¬ 
beitet,  der  16  Zeilen  mit  je  64  Spalten 
durch  horizontales  Scrollen  auf  der 
Mattscheibe  darstellt.  Dieser  Editor 
kann  zwar  einen  Full-Screen-Editor 
nicht  ersetzen,  aber  aufgrund  meh¬ 
rerer  Hilfsfunktionen  und  Editier¬ 
möglichkeiten,  die  zum  Teil  auch  auf 
die  Funktionstasten  gelegt  sind, 
wird  ein  insgesamt  annehmbarer 
Bedienkomfort  erreicht.  Die  Funk¬ 
tionstaste  Fl  ist  übrigens  frei  beleg¬ 
bar. 
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Das  Audiogenic-Forth  verfügt 
über  einige  Befehle,  die  nicht  zum 
FIG-Forth-Standard  gehören.  Sie  un¬ 
terstützen  hauptsächlich  die  Hard¬ 
waremöglichkeiten  des  VC  20  be¬ 
ziehungsweise  des  C  64.  Die  VC 
20-Version  bietet  dabei  sogar  etwas 
mehr,  denn  hier  wird  die  Program¬ 


mierung  von  Grafik  und  Musik 
durch  die  Befehle  SOUND,  VOLU¬ 
ME  und  COLOUR  vereinfacht.  Be¬ 
sondere  Beachtung  verdient  die  Be¬ 
handlung  der  RESTORE-Taste. 
Durch  den  Befehl  »RESTORE«  wird 
wahlweise  keine  Reaktion,  eine 
Rückkehr  in  den  Interpreterscreen 
oder  ein  Kaltstart  ausgelöst. 

Das  Handbuch,  das  in  Umfang 
und  Ausführlichkeit  stark  an  die 
Commodore-Handbücher  erinnert, 
ist  leider  in  Englisch  geschrieben 
und  kann  ein  Forth-Lehrbuch  nicht 
ersetzen.  Es  ist  allerdings  sehr  gut 
gegliedert  und  zum  schnellen  Nach- 


C  64/VC  20 


schlagen  brauchbar.  Neben  einer 
sinnvoll  geordneten  und  übersichtli¬ 
chen  Kurzbeschreibung  aller  Befeh¬ 
le  sind  die  abgedruckten  Beispiel¬ 
programme  erwähnenswert,  Viele 
davon  dienen  zur  Darstellung  be¬ 
stimmter  Programmiertechniken  in 
Forth.  Andere  jedoch,  wie  zum  Bei¬ 
spiel  ein  Screen-Lister  für  Drucker¬ 
ausgabe  oder  ein  Programm  zum 
Lesen  einer  Directory  sind  wirklich 
nützliche  Utilities.  Natürlich  fehlt 
auch  ein  vollständig  in  Forth  pro¬ 
grammiertes  Spiel  nicht. 

Das  Audiogenic-Forth  gibt  es  als 
Steckmodul  in  einer  Ausführung  für 
den  C  64  und  gleich  in  zwei  Versio¬ 
nen  für  den  VC  20,  einmal  mit  und 
einmal  ohne  eingebaute  3  KByte 


Speichererweiterung,  Die  VC 
20-Version  ohne  eingebaute  Spei¬ 
che  re  rweiterung  ist  jedoch  auf  der 
Grundversion  nicht  lauffähig  und 
kann  nur  mit  einem  bereits  erweiter¬ 
ten  VC  20  benutzt  werden. 

Empfehlenswert  ist  das 
Audiogenic-Forth  vor  allem  für  Sy¬ 
steme  ohne  Floppy-Laufwerk,  die 
bisher  die  mächtige  Sprache  Forth 
aufgrund  der  nötigen  Zwischen¬ 
speicherung  der  Screens  auf  Dis¬ 
kette  nicht  benutzen  konnten. 

(Daniel  Kobler/ev) 

Audiogenic-Forth  ist  erhältlich  über  Kmgsoft,  Fritz  Schäfer, 
Schnackebusch  4,  5106  Roetgen. 

Preis  119  Mark  (Steckmodul). 


Das  Standard-Vokabular  von  Audiogenic-Forth 

Stackmanipulation 

OVER  DROP  SWAP  DUP  ROT 
?DUP SP@  SP!  RP!  >RR>  R@IJ 
K  STACK-BOTTOM 
Numerische  Befehle 
DIGIT  +  D+  MINUS  DMINUS 
MIN  MAX  AND  OR  XOR  U*  U/ 
1+  2+  1-  2-  -  HEX  DECIMAL 
LITERAL  NUMBER  S-  ->D  +- 
D  +  -  ABS  DABS  2/  MOD 
/MOD  M/MOD  /  M*  */  */MOD  0 
1  2  3-lDPLBASE0=  0<  =  U<  < 
>  HOLD  <  #  #  >  SIGN  #  #S 
Textfeld-Speicherung 
TP  SCR  BLK  EXP  COM  EXPAND 
SSAVE  SLOAD  DEVICE 
9SCREENS  DELETE  COPY 
RESET  CLR0  -  ->  (  LOAD 
SCREEN  SCRSTART  C/L  CON¬ 
TROL 

Speicherzugriff 

FILL  ERASE  BLANKS  CMOVE 
<  CMOVE  @  C@  !  C!  TOGGLE 
+  !  ,  C,  COUNT 

Wörterbuch 

FENCE  SET-FORTH  -FIND 
HERE  ALLOT  LATEST  TRAVER¬ 
SE  LFA  CFA  NFÄ  PFA  FORGET  ' 


+  ORIGIN  PAD  VOCABULARY 
DEFINITIONS  DP  CURRENT 
CONTEXT 

Compiler-Anweisungen 

>IN  EXECUTE  ENCLOSE  ER¬ 
ROR  ?ERROR  ?STACK  ?COMP 
9EXEC  9PAIRS  ?CSP  9LOADING 
COMPILE  [COMPILE]  [  ]  WORD 
!CSP  ;S  QUIT  ABORT  INTER¬ 
PRET  IMMEDIATE  STATE 
SMUDGE  COLD  LITERAL 
Ein-/Ausgabe 

KEY  0KEY  EMIT  CR  TYPE 
-TRAILING  (.»)  .»  EXPECT 

QUERRY  SPACE  SPACES  D.R  D. 
.RU..9  CLR  9TERMINAL  TEXT 
#  IN  P  HOME  BL  TIB  OPEN  CLO- 
SE  IN  OUT  OFF  STATUS 
Definitions-Worte 
;  ;  CREÄTE  CONSTANT 
VARIABLE  <BUILDS  DOES> 
Kontrollstrukturen 
BRANCH  OBRANCH  (LOOP) 
(  +  LOOP)  (DO)  LEAVE  DO  LOOP 
+  LOOP  BACK  BEGIN  UNTIL 
AGAIN  IF  ELSE  THEN  REPEAT 
WHILE  DOBRAN  I  J  K  R@ 

VC  20  /  C  64  -  Funktionen 
SOUND  VOLUME  NMI  COLOUR 
SET  RESTORE 
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SO  fl1 

«asto 


DfOQ 


r#1* 


ÄO^etV 


6iX 


wüSS*-1 


dex 


,lze^ 


det^ 


**** 


C6^ 


Veisi°^, 
TÄt- 


?xo 


gia^ 


l1coiei‘ 


-tAettvo' 


de 


\0 


.48 


■Bmc^s 


»*>®* 


?0 


alle 


sseix 


VOX1 


p£sü&c 

de&^' 


*üetfe 


rcöXtf 


eieXV 


.etv 


vot 


de^( 


exe^ 


1,30 
i,l5 
5,63 
5,51 


Vana 


ÜVetx 


VaX1' 


,atde 


Xftft 

tevxX 


3^c 


fcSö&e* 


Buc^s 


;xat)e'0' 


Ctf*$ 


-pO&£ 


vo 


»tde1 


\0 

W 


pp.1^ 

Sc^eile 


statt 

SS®*®* 


txü1 


itff 


,GOt° 


,  statt 


*  S 


Sc 


rcvtt 


fOP- 


oYvxve 


\3 

13 


,\sttxv<3 


US 


ttvtt 


^sdtvgs 


2^va^ 

5^ 


.aide 


olvxve 


olxxve 


^sväxv' 


de 


VC  30 
3,33 

dS 

5,13 

“£n 

4,63 
3,40 
3,58 
3,53 
3,51 
3,50 
0,91 
0,83 
0,98 
0.81 
0,18 
U033 


4,05 
3,10 
3,03 
3,00 
3,98 


1,08 
1,00 
1,30 
0,98 


Basic-Programme 
können  nach 
drei  Gesichtspunkten 
optimiert  werden:  strukturiert 
und  lesbar,  schnell  sowie 
speicherplatzsparend. 
Nach  der  Serie 
über  strukturiertes 
Programmieren  wird  in 
diesem  Beitrag 
der  Aspekt 
der  Laufgeschwindigkeit 
und  ihrer 
Verbesserung 
behandelt. 
Alle  Aussagen  und 
Beispiele  gelten 
sowohl  für  den 
VC  20  als  auch 
den  C  64. 
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Es  gibt  einige  Dinge  auf  der  Welt, 
die  man  sehr  wohl  einzeln,  aber 
nicht  alle  gleichzeitig  haben 
kann.  Wirtschaftswachstum,  keine 
Inflation  und  niedrige  Arbeitslosig¬ 
keit  lassen  sich  eben  nicht  unter  ei¬ 
nen  Hut  bringen. 


Bei  der  Computerei,  oder  genau¬ 
er  gesagt  beim  Prorammieren,  gibt 
es  in  einer  höheren  Sprache  wie  Ba¬ 
sic  ebenfalls  so  ein  magisches  Drei¬ 
eck:  strukturierte  Programme,  mini¬ 
maler  Speicherbedarf,  kürzere 
Laufzeiten. 

Gut  lesbare  und  klar  gegliederte 
Programme  brauchen  oft  mehr 
Speicherplatz  als  es  sich  zum  Bei¬ 
spiel  Besitzer  der  VC  20-Grundver- 
sion  leisten  können.  Deswegen  soll 
mein  heutiger  Beitrag  Sie  zum  Expe- 
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rimentieren  anregen,  mit  welchen 
verschiedenen  Methoden  Basic- 
Programme  schneller  gemacht  wer¬ 
den  können. 

Basic  ist  nicht  immer 
gleich  Basic 

Die  Commodore-Handbücher  sa¬ 
gen  leider  zu  diesem  Thema  recht 
wenig.  Ich  bitte  Sie  an  Ihrem  Com¬ 
puter,  VC  20  oder  C  64,  Platz  zu  neh¬ 
men. 

Als  erstes  wollen  wir  uns  einen 
einfachen  aber  typischen  Pro¬ 
grammablauf  überlegen,  welchen 
wir  mit  mehreren  Basic-Möglichkei- 
ten  programmieren  können.  Übri¬ 
gens:  Wegen  der  guten  Lesbarkeit 
schreiben  Sie  die  nachfolgenden 
Basic-Zeilen  mit  Leerstellen  zwi¬ 
schen  den  Befehlen. 

Ich  weiß,  es  geht  auch  kürzer, 
aber  bei  meinen  Experimenten 
spielt  Speicherplatz  keine  Rolle  und 
außerdem  habe  ich  noch  einen  Hin¬ 
tergedanken,  den  ich  erst  später  er¬ 
klären  kann.  Nicht  zuletzt  will  ich  da¬ 
durch  auch  erreichen,  daß  die  Lauf¬ 
zeiten  der  Programme  mit  den  Ihren 
übereinstimmen. 

Schalten  Sie  bitte  auch  Program¬ 
mierhilfen  (Toolkit,  Simon's  Basic 
etc.)  und  Disk  Operating-Program- 
me  (DOS  5.1)  aus,  denn  sie  verlang¬ 
samen  den  Programmablauf. 

Die  interne  Uhr  mißt 
die  Zeit 

Beide  Computer,  VC  20  und  C  64, 
haben  eine  interne  Uhr,  deren  Zeit 
abgefragt,  ausgedruckt  und  somit 
zur  Zeitmessung  verwendet  werden 
kann.  Im  Befehlssatz  der  Commodo¬ 
re-Handbücher  finden  Sie  dazu  die 
beiden  Funktionen  TI  und  TI$.  Mein 
Zeitmessungsprogramm  besteht 
aus  zwei  Zeilen.  Die  »Stoppuhr«  wird 
gestartet  mit: 

10  TI$  =  "000000" 


Sie  wird  am  Ende  des  Testpro¬ 
gramms  gestoppt  mit: 

1000  PRINT  TI/60  "SEKUNDEN" 
:END 

Zwischen  diese  beiden  Zeilen 
stecken  wir  dann  die  Prüflinge,  das 
heißt  die  Programme,  deren  Lauf¬ 
zeit  wir  messen  wollen. 

Zur  Prüfung  geben  wir  zuerst  die 
Zeile  15  mit  einer  simplen  Verzöge¬ 
rungsschleife  ein. 

15  FOR  T  =  1  TO  100:NEXT  T 

Das  Programm  dieser  drei  Zeilen 
hat  die  Laufzeit  von  0,13  Sekunden 
mit  dem  VC  20  und  0,15  Sekunden 
mit  dem  C  64. 

Das  erste  Testprogramm 

Löschen  Sie  bitte  wieder  die  Zeile 
15.  Als  Programm,  welches  wir  in 
mehreren  Versionen  prot animie¬ 
ren  wollen,  habe  ich  mir  einen  Ab¬ 
lauf  ausgesucht,  der  auch  optisch 
verfolgbar  ist.  Auf  dem  Bildschirm 
soll  nämlich  der  Buchstabe  A  gleich 
374  mal  nebeneinander  gedruckt 
werden. 

Die  Zahl  374  hat  nichts  Magisches 
an  sich.  Es  sind  ganz  einfach  17  Zei¬ 
len  voller  A’s  auf  dem  Schirm  des  VC 
20,  der  mit  seiner  begrenzten  Spal¬ 
tenzahl  hier  den  Ton  angibt.  17  Zei¬ 
len  lassen  uns  genug  Platz,  um  die 
gestoppte  Zeit  darunter  gut  lesbar 
anzuzeigen. 

Ich  bleibe  für  den  C  64  bei  dersel¬ 
ben  Zahl,  damit  wir  beide  Computer 
miteinander  vergleichen  können 
und  damit  die  Programme  mög¬ 
lichst  identisch  sind. 

In  der  Version  1  des  Programms 
verwenden  wir  POKE-Befehle,  mit 
denen  wir  das  A  und  die  dazugehö¬ 
rige  Farbe  auf  den  Bildschirm,  das 
heißt  in  den  Bildschirmspeicher 
(Video-RAM)  und  den  Farbspeicher 
(Color-RAM)  bringen.  Beim  VC  20 
(ohne  Erweiterung)  beginnt  der 
Bildschirmspeicher  ab  Speicherzel¬ 
le  7680,  der  Farbspeicher  ab  38400. 
Beim  C  64  sind  es  die  Speicherzel¬ 
len  1024  und  55296.  Schauen  Sie  bit¬ 
te  in  den  Commodore-Handbü- 
chern  nach  und  vergewissern  Sie 
sich,  daß  Sie  dieses  System  des 
Zeichen-POKEns  verstehen.  Es  ist 


dort  gut  beschrieben.  Der  Buchsta¬ 
be  A  hat  den  Bildschirm-Codewert 
1.  Als  Farbe  wähle  ich  die  »Normal¬ 
farben«  der  beiden  Computer.  Der 
Farbcode  für  das  Blau  des  VC  20  ist 
6,  für  das  Hellblau  des  C  64  ist  er  14. 

Das  Programm  beginnt  mit  dem 
Löschen  des  Bildschirms  (Zeile  20) 
und  POKEt  dann  in  Zeile  40  das  er¬ 
ste  A  in  den  ersten  Platz  des  Bild¬ 
schirms. 

20  PRINT  CHR$  (147) 

40  POKE  7680  +  Z:POKE  38400  + Z, 6 
(40  POKE  1024  +  Z:POKE  55296  + 
Z,14) 

Die  Zeile  in  Klammern  gilt  für  den 
C  64.  In  Zeile  40  finden  Sie  zusätzlich 
eine  Variable  »Z«.  Wie  geplant,  soll 
das  A  374mal  gePOKEt  werden,  Al¬ 
so  müssen  wie  die  Zahl  der  Spei¬ 
cherzelle  laufend  um  1  erhöhen.  Da¬ 
zu  erfinden  wir  diese  Variable  Z,  die 
zur  Speicherzelle  addiert  wird. 

Wir  setzen  Z  am  Anfang  des  Pro¬ 
gramms  (in  Zeile  30)  auf  Null  und 
zählen  es  in  Zeile  50  um  1  weiter. 

30  Z  =  0 
50  Z  =  Z  +  1 

Als  nächstes  müssen  wir  prüfen, 
ob  Z  den  Schlußwert  374  erreicht 
hat.  Wenn  nicht,  dann  soll  der  näch¬ 
ste  POKE-Befehl  ausgeführt  wer¬ 
den,  das  heißt  wir  springen  auf  Zeile 
40  zurück.  Dann  kommt  die  Zeile 
1000  zum  Zug  mit  dem  Stoppen  und 
Ausdrucken  der  Laufzeit.  Also: 

60  IFZ-374  THEN  1000 
70  GOTO  40 

Ich  schlage  vor,  daß  Sie  das  kleine 
Programm  nochmal  LISTen,  damit 
wir  es  komplett  sehen  können. 

Die  Laufzeit  wird  nur  davon  beein¬ 
flußt,  was  zwischen  den  Zeilen  10 
und  1000  steht.  Sie  können  vor  der 
Zeile  10  dem  Programm  hinzufügen, 
was  Sie  wollen. 

Ein  erster  Probelauf  mit  RUN 
bringt  das  gewünschte  Ergebnis, 
nur  eins  ist  noch  unschön:  Der 
PRINT-Befehl  in  Zeile  1000  druckt 
uns  die  Zeit  oben  in  die  2.  Zeile,  wo 
sie  schlecht  erkennbar  ist.  Wir 
könnten  sie  in  einer  anderen  Farbe 
drucken,  aber  ich  habe  einen  bes¬ 
seren  Vorschlag. 

Ersatz  für  den  Befehl 
»PRINT-AT« 

Wir  brauchen  ein  Kochrezept,  um 
mit  einem  PRINT-Befehl  an  einen 
ganz  bestimmten  Platz  auf  dem  Bild¬ 
schirm  drucken  zu  können.  Einige 
Basic-Dialekte  kennen  den  Befehl 
»PRINT-AT«.  Welche  Möglichkeiten 
bietet  uns  das  Basic  von  Commo- 
dore? 
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1)  PRINT”[Cursor  Down]  [Cursor 
Right]” 

2)  PRINT  TAB(X) 

3)  PRINT  SPC(X) 

Um  zum  Beispiel  an  den  3,  Platz  in 
der  20.  Zeile  die  Zeit  zu  drucken, 
müßten  wir  18mal  das  inverse  0  für 
Cursor  Down  und  lmal  Cursor  Right 
eingeben. 

Mit  TAB  (X)  geht  es  besser.  Wir  ha¬ 
ben  nur  ein  Problem,  daß  nämlich 
der  höchste  zulässige  Wert  für  X  nur 
255  ist  (X  nennt  man  das  »Argu¬ 
ment«).  Wir  müssen  deshalb  zwei 
TAB-Befehle  hintereinander  setzen, 
um  einen  Abstand  von  400  Leerstel¬ 
len  zu  erzeugen. 

1000  PRINT  TAB  (255)  TAB  (155) 
TI/60"SEKUNDEN":END 

Für  das  Argument  von  SPC  01t 
dieselbe  Begrenzung  von  255,  Eine 
doppelte  Verwendung  von  SPC  geht 
natürlich  auch,  allerdings  zählt  SPC 
nicht  vom  Anfang  der  Zeile,  sondern 
ab  der  letzten  Cursor-Stelle.  Durch 
Rechnen  oder  einfach  durch  Pro¬ 
bieren  finden  wir  die  Gesamtzahl 
von  397,  das  gibt: 

1000  PRINT  SPC  (255)  SPC  (142) 
TI/60”SEKUNDEN":END 

Es  gibt  noch  eine  dritte  Methode, 
um  PRINT-AT  zu  simulieren. 

In  die  Speicherzelle  214  kann  die 
Zahl  einer  Zeile  hineingePOKEt 
werden,  auf  die  mit  einem  nachfol¬ 
genden  PRINT  der  Cursor  gesetzt 
wird.  Das  gleiche  gilt  für  einen  Platz 
in  einer  Zeile  mit  der  Speicherzelle 
211.  Versuchen  Sie  es  mit  der  direk¬ 
ten  Eingabe: 

POKE  214,8:PRINT:POKE  211,4: 
PRINT’ A" 


Drei  Formen  für 
»PRINT  AT« 


Das  druckt  den  Buchstaben  A  in 
die  4.  Spalte  auf  der  9.  Zeile.  Für  un¬ 
seren  Anwendungsfall  in  Zeile  1000 
müssen  wir  die  Zahl  18  nach  214  PO- 
KEn,  211  können  wir  vernachlässi¬ 
gen. 

1000  POKE  214,18:PRINT:PRINT  TI/ 
60  ”SEKUNDEN”:END 

Alle  drei  Methoden  sind  gleich¬ 
wertig,  sowohl  in  Auswirkung  als 
auch  beim  Speicherbedarf.  Ich  blei¬ 
be  im  folgenden  bei  der 
214-Methode. 

Zurück  zur  Version  1  des  Testpro¬ 
gramms.  Das  Programm  unterschei¬ 
det  sich  für  die  beiden  Computer 
nur  in  der  Zeile  40,  allerdings  auch 
durch  die  Laufzeit.  Nach  RUN  erhal¬ 
ten  wir  mit  dem  VC  20  8.25  Sekun¬ 
den,  mit  dem  C  64  10,48  Sekunden. 
Dieses  Auffüllen  des  Bildschirms 
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mit  A  geht  halt  recht  langsam.  Schon 
beim  Zuschauen  wird  man  ungedul¬ 
dig.  Der  Teil  in  diesem  Programm, 
welcher  die  Laufzeit  am  nachhaltig¬ 
sten  beeinflußt,  ist  die  374fache 
Wiederholung  des  POKE-Befehls. 
Bei  einem  POKE-Befehl  ist  die  Um¬ 
wandlung  der  Zahlen  aus  dem 
ASCII-Code  sehr  zeitaufwendig. 
Hoppla,  was  heißt  denn  das  schon 
wieder,  sagen  Sie  jetzt  vielleicht. 

Jede  Zahl,  wie  zum  Beispiel  7680 
oder  1024,  ward  zuerst  als  vier  einzel¬ 
ne  ASCII-Codezahlen  gespeichert. 
Wenn  das  Programm  abläuft,  wer¬ 
den  diese  ASCII-Zahlen  zuerst  in 
ganze  Zahlen,  dann  in  Fließkomma- 
Zahlen  um  gewandelt  —  das  für  den 
Fall,  daß  mit  den  Zahlen  arithmeti¬ 
sche  Funktionen  ausgeführt  wer¬ 
den.  Schließlich  werden  sie  wieder 
in  eine  ganzzahlige  POKE-Adresse 
umgewandelt,  und  das  in  unserem 
Fall  374mal! 

Hier  können  wir  einen  ersten  in¬ 
nerbetrieblichen  Verbesserungs¬ 
vorschlag  einreichen.  Wenn  wir  ei¬ 
ne  so  häufig  vorkommende  Zahl  wie 
die  POKE-Adresse  in  Zeile  40  am 
Anfang  des  Programms  einer  Varia¬ 
blen  zuweisen,  dann  erfolgt  die 
oben  genannte  Umwandlungsse¬ 
quenz  nur  einmal,  nämlich  am  An¬ 
fang  des  Programms.  Das  Pro¬ 
gramm  muß  dann  374  mal  nur  den 
Wert  der  Variablen  im  Speicher  su¬ 
chen  und  das  geht  viel  schneller. 
Wollen  Sie  es  sehen?  Ändern  Sie  bit¬ 
te  für  diese  Version  2  die  Zeilen  30 
und  40. 

Die  Anfangsadresse  im  Bild¬ 
schirmspeicher  definieren  wir  als 
Variable  mit  dem  schönen  und  zu¬ 
treffenden  Namen  »VIDEO«,  die  des 
Farbspeichers  mit  »FARBE«.  In  Zeile 
30  erhalten  sie  dann  die  Werte 
30  Z  =  0:VIDEO  =  7680:FARBE  = 
38400:REM  VC  20 
(30  Z  =  0:VIDEO  =  1024:FARBE  = 
55296:REM  C  64) 

Zeile  40  ergibt  sich  dann  eigent¬ 
lich  zwangsläufig: 

40  POKE  VIDEO +  Z,  LPOKE  FARBE 
+  Z,6 

(40  POKE  VIDEO  +  Z, LPOKE  FARBE 
+  Z.14) 

Alles  andere  bleibt  gleich.  Tippen 
Sie  RUN  ein.  Ergebnis:  der  VC  20 
braucht  5,78  Sekunden,  der  C  64  7,3 
Sekunden.  Wir  haben  also  eine  Ver¬ 
kürzung  von  zirka  drei  Sekunden  er¬ 
zielt,  das  sind  30  Prozent! 

Sicher  ist  Ihnen  aufgefallen,  daß 
der  VC  20  schon  wieder  schneller 
ist  als  der  C  64. 

In  der  Tat  können  die  oft  mitleidig 
behandelten  VC  20-Besitzer  mäch¬ 
tig  stolz  sein:  Der  VC  20  ist  immer 


schneller  als  der  C  64  und  auch  (fast 
immer)  schneller  als  die  »Neuen« 
C-116  und  Plus/4  (und  übrigens  ei¬ 
ner  der  schnellsten  Heimcomputer 
überhaupt), 

Der  VC  20  ist  der 
schnellste 


Eine  Beschleunigung  von  30  Pro¬ 
zent  ist  gut,  aber  noch  nicht  alles, 
was  wir  erreichen  können.  Da  die 
Methode  der  vordefinierten  Varia¬ 
blen  so  effektiv  ist,  wollen  wir  sie  auf 
alle  oft  verwendeten  Zahlen  des 
Programms  anwenden.  Neben  Z, 
VIDEO  und  FARBE  gibt  es  noch  die 
1  für  den  Buchstaben  A  und  die  6  (14) 
für  die  Farbe  sowie  den  Schlußwert 
374  der  Schleife. 

Sie  wissen  schon,  wie  das  geht. 
Wir  ändern  folgende  Zeilen: 

30  Z  =  0:  SCHLUSSWERT = 374:VI- 
DEO  =  7680:FARBE  =  38400:BUCH- 
STA  =  LDRUCK  =  6 
(30  Z  =  0:  SCHLUSSWERT  =  374: 
VIDEO  =  1024:FARBE  =  55296:BUCH 
STA  =  LDRUCK  =14) 

40  POKE  VIDEO  +  Z,  BUCHSTATO¬ 
KE  FARBE +  Z, DRUCK 
60  IF  Z  =  SCHLUSSWERT  THEN 
1000 

Das  ist  Version  3  des  Programms, 
mit  Laufzeiten  von  5,15  Sekunden 
(VC  20)  beziehungsweise  6,15  Se¬ 
kunden  (C  64).  Das  ist  eine  Verbes¬ 
serung  von  3,10  (4,23)  Sekunden  ge¬ 
genüber  der  ersten  Version. 

Bisher  haben  wir  die  Variablen  im 
Sinn  einer  guten  Lesbarkeit  mit  lan¬ 
gen  und  verständlichen  Namen  ver¬ 
sehen.  Aber  das  kostet  natürlich 
Speicherplatz  und  auch  Geschwin¬ 
digkeit.  Der  Grund  ist  immer  dersel¬ 
be:  Bei  der  Variablen  VIDEO  sind 
fünf  Zeichen  374  mal  zu  bearbeiten. 
Wenn  wir  sie  nur  VI  nennen,  ist  das 
erheblich  weniger. 

In  Version  4  des  Programms  redu¬ 
zieren  wir  also  alle  langen  Varia¬ 
blennamen  auf  zwei  Zeichen.  Wir 
wollen  mal  schauen,  was  das  bringt: 
30  Z  =  0:  SC  =  374:  VI  =  7680:FA  = 
38400:BU  =  1:DR  =  6 
(30  Z  =  0:  SC  =  374:  VI  =  1024:FA  = 
55296:BU  =  1:DR = 14) 

40  POKE  VI  +  Z,BU:POKE  FA  +  Z,DR 
60  IF  Z  =  SC  THEN  1000 
Ergebnis:  VC  20:  4,71  Sekunden 
C  64:  5,63  Sekunden 

Gegenüber  der  Version  1  des  Pro¬ 
gramms  haben  wir  schon  eine  Ver¬ 
besserung  von  43%  (46%)  erreicht. 

Sie  wissen  sicher,  daß  der  Com¬ 
puter  alle  Variablennamen  immer 
auf  zwei  Stellen  reduziert,  daß  aber 
einstellige  Variablen  durchaus  zu- 
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gelassen  sind.  Damit  müßte  unser 
Programm  eigentlich  noch  schnel¬ 
ler  werden.  Die  folgenden  Ände¬ 
rungen  für  Version  5  zielen  genau  dar¬ 
auf: 

30  Z  =  0:  S  =  374:  V=7680:F= 38400: 

B=1:D  =  6 

(30  S  =  374:  V=1024:  F=55296:B  =  1: 
D  =  16) 

40  POKE  V  +  Z,B:POKE  F + Z,D 
60  IFZ-STHEN  1000 
Die  erzielte  Verbesserung  ist 
meßbar,  aber  nicht  gerade  über¬ 
wältigend,  Der  VC  20  braucht  nun 
4.63  und  der  C  64  3,51  Sekunden.  Mit 
dem  bisher  Gesagten  läßt  sich  be¬ 
reits  eine  erste  generelle  Regel  für 
schnellere  Basic-Programme  auf¬ 
stellen. 

Regel  1 

*  Häufig  vorkommende  Zahlen,  Adressen  und 
Variable,  besonders  innerhalb  von  Schleifen, 
werden  am  Anfang  des  Programms,  vor  definiert. 

*  Variable,  die  sich  im  Lauf  des  Programms  ver¬ 
ändern,  werden  trotzdem  vordefiniert,  allerdings 
mit  einem  unschädlichen  Anfangswert  (dummy). 

*  Die  Zahl,  die  am  häufigsten  vorkcmmt,  wird  als 
erste  vcrdefimert  (damit  sie  schneller  »gefunden« 
wird). 

*  Variablennamen  sollen  möglichst  einstellig, 
.aber  höchstens  zweistellig  sein. 

W1 

Halt!  Löschen  Sie  das  Programm 
noch  nicht.  Wir  liegen  noch  unter  50 
Prozent  mit  unseren  Verbesserun¬ 
gen,  und  das  reicht  noch  lange 
nicht.  Was  können  wir  am  bisheri¬ 
gen  Programm  noch  ändern?  Den¬ 
ken  Sie  mal  nach.  Wie  kann  man 
Buchstaben  auf  den  Bildschirm 
bringen?  Natürlich,  mit  PRINT  statt 
der  POKEs. 

In  Version  6  des  Programms  erset¬ 
zen  wir  die  Buchstaben-POKE-Be- 
fehle  durch  eine  PRINT-Anweisung, 
die  prinzipiell  noch  den  Vorteil  hat, 
daß  keine  Farbanweisung  nötig  ist. 
Den  Buchstaben  A  wollen  wir  in  die¬ 
ser  Version  zunächst  einmal  mit  sei¬ 
ner  ASCII-Codezahl  65  angeben, 
ein  Semikolon  setzt  alle  A  hinterein¬ 
ander. 

40  PRINT  CHR$(65); 

Für  die  Schleife  brauchen  wir 
nur  die  beiden  Variablen  Z  und  S: 
30  Z  =  0:S  =  374 

Alle  anderen  Zeilen  bleiben  un¬ 
verändert. 

Nach  RUN  sehen  wir  als  Ergebnis: 
VC  20:  3,4  Sekunden 
C  64:  4,05  Sekunden 
Das  ergibt  eine  weitere  Verbesse¬ 
rung  von  1,2  (1,5)  Sekunden.  Unser 
Programmbeispiel  wird  also  durch 
die  Verwendung  von  PRINT  statt 
POKE  stark  beschleunigt.  Das  geht 
natürlich  deswegen  besonders  gut, 
weil  alle  Buchstaben  automatisch 
hintereinander  gesetzt  werden. 
Wenn  wir  jedesmal  den  Platz  mit  an¬ 


geben  müßten,  wohin  gePRINTet 
werden  soll,  wäre  der  Vorteil  rasch 
verspielt. 

Die  Anweisung  PRINT  CHR$(65) 
ist  zwar  gut  lesbar,  aber  wir  haben  ja 
vorher  gelernt,  daß  Vordefinieren 
von  Variablen  schneller  ist.  In 
Version 7  machen  wir  das  auch  mit  der 
PRINT-Variablen. 

30  Z  =  0:  S  =  374:  A$  =  CHR$(65) 

40  PRINT  A$ 

Das  Resultat  ist  wieder  beein¬ 
druckend:  2,58  Sekunden  beim  VC 
20,  3,10  Sekunden  beim  C  64,  Das 
sind  schon  69  Prozent  Verbesserung 
gegenüber  der  1.  Version. 

Aber  selbst  —  oder  gerade  —  je¬ 
dem  Anfänger  ist  die  direkte  PRINT- 
Anweisung  mit  Gänsefüßen  am  ge¬ 
läufigsten.  Sie  braucht  auch  weniger 
Speicherplatz  und  macht  sogar  ein 
Vordefinieren  unnötig.  Wir  wollen 
schauen,  ob  sie  auch  schneller  ist. 

Ändern  Sie  für  Version  8  die  Zeilen 
30  und  40: 

30  Z  =  0:S  =  374 
40  PRINT  ’Ä'; 

Erstaunlicherweise  bringt  das  fast 
gar  nichts,  beim  VC  20  nur  0,05  Se¬ 
kunden  Verbesserung,  beim  C  64 
0,07  Sekunden.  Die  Erklärung  liegt 
darin,  daß  beide  Darstellungen, 
CHR$(65)  und  ’Ä”  ASCII-Code- 
Verwender  sind.  Damit  ist  der  einzi¬ 
ge  Unterschied  zwischen  Version  7 
und  8  die  Anzahl  der  Zeichen  im 
Programm, 

Fassen  wir  zusammen: 

Regel  2 

*  In  Schleifen  mit  aneinandergereihten  Druckan¬ 
weisungen  ist  PRINT  viel  schneller  als  POKE. 

*  Die  PRINT-Variablen  sollen  entweder  vordefi¬ 
niert  oder  im  Gänsefuß-Modus  eingesetzt  wer¬ 
den. 

In  der  PRINT-Schleife  (Zeile  40) 
und  nachfolgender  IF-Abfrage  (Zei¬ 
le  60)  gibt  es  noch  zwei  Feinheiten. 
Basic  erlaubt  uns  bei  bedingten 
Sprüngen  statt  IF  ..  THEN  GOTO  .. 
nur  IF  ..  THEN  ..  zu  schreiben  und 
das  haben  wir  bisher  auch  brav  ge¬ 
macht. 

Man  kann  aber  auch  IF  ..  GOTO 
verwenden.  Eigentlich  ist  nicht  zu 
erwarten,  daß  zwischen  den  beiden 
Schreibarten  ein  Zeitunterschied 
besteht.  Der  Fall  ist  tatsächlich  fast 
akademisch,  wie  Version  9  beweist: 
60  IF  Z  =  S  GOTO  1000 

Laufzeit  des  VC  20: 2,51  Sekunden, 
die  des  C  64:  3,0  Sekunden, 

Eine  andere  Änderung  bringt 
auch  nur  ganz  wenig  in  der  Ge¬ 
schwindigkeit,  aber  sie  spart  uns  ei¬ 
ne  ganze  Zeile  und  damit  Speicher¬ 
platz: 

60  IF  Z<  >S  GOTO  40 
70  entfällt 


Diese  Version  10  gewinnt  nur  0,01 
(0,02)  Sekunden. 


Regel  3 

*  Bei  Schleifen  mit  Sprunganweisungen  ist  IF  .. 
GOTO  schneller  als  IE. THEN 

*  Prüfung  auf  Ungleichheit  (<  >)  bietet  Vorteile, 
wenn  sie  eine  Zeile  erspart. 

Für  die  etwas  weiter  Fortgeschrit¬ 
tenen  unter  Ihnen  gebe  ich  hier 
noch  eine  weitere  Anregung,  die 
wir  mit  unserem  Prüfprogramm 
nicht  testen  können. 

Die  Prüfung  mit  IF..THEN  hängt 
oft  von  mehr  als  einer  Bedingung  ab. 
Zum  Beispiel  kann  sie  so  lauten: 

100  IF  (Ä  =  l  ÄND  B  =  2  AND  C  =  3) 
THEN  999 
110  GOTO  50 

Zeile  100  prüft  jedesmal,  ob  alle 
drei  Bedingungen  erfüllt  sind,  erst 
nach  dem  THEN  wird  entschieden, 
ob  das  Programm  auf  Zeile  999 
springt  oderauf  110  weiterläuft.  Neh¬ 
men  wir  an,  A  ist  im  20.  Durchlauf  er¬ 
füllt,  B  im  50.  Durchlauf,  C  aber  erst 
im  300.  Durchlauf.  Das  Programm 
muß  also  300mal  alle  drei  Bedingun¬ 
gen  nachprüfen.  Wenn  wir  die  Zeile 
100  so  schreiben: 

100  IF  C  =  3  THEN  IF  B- 2  THEN  IF 
A  =  1  THEN  999 

dann  bricht  das  Programm  300mal 
die  Prüfung  nach  dem  C  sofort  ab 
und  geht  in  110  weiter.  B  und  A  wer¬ 
den  erst  dann  zur  Prüfung  herange¬ 
zogen,  wenn  C  =  3  ist.  Es  ist  wohl  klar 
und  einzusehen,  daß  die  zweite 
Schreibweise  schneller  ist. 

Regel  4 

Bei  IE.THEN-Prüfungen  mit  mehreren  Bedingun¬ 
gen  sollen  diese  Bedingungen  in  einzelnen 
IE.THEN-Prüfungen  hintereinander  gesetzt  wer 
den.  Dabei  wird  die  Bedingung  an  die  erste  Stel¬ 
le  gesetzt,  welche  als  erste  nicht  erfüllt  ist. 

Ich  habe  mit  Absicht  bis  hierher 
die  374malige  Wiederholung  der 
Schleife  mit  der  Zählvariablen  Z 
hochgezählt  und  mit  IF..THEN  bezie¬ 
hungsweise  IF..GOTO  den  Schluß¬ 
wert  abgefragt.  Das  gab  mir  die  Ge¬ 
legenheit,  die  Schnelligkeit  dieser 
Methode  ganz  auszureizen.  Und  wir 
haben  auch  die  ursprüngliche  Lauf¬ 
zeit  von  8,25  (10,48)  Sekunden  auf 
2,50  (2,88)  Sekunden  reduziert! 

Jetzt  wollen  wir  noch  eine  andere 
Basic-Möglichkeit  austesten,  die  Sie 
ja  alle  kennen,  nämlich  die  Schleife 
mit  FOR..TO..NEXT  zu  programm- 
mieren. 

Wir  wollen  in  Version  11  des  immer 
noch  gleichen  Programms  dazu  die 
Zeilen  30,  50  und  60  ändern: 

30  FOR  Z  =  1  TO  374 
50  NEXT  Z 
60  entfällt 
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Lassen  Sie's  laufen.  Huinh!  Das 
pfeift  runter!  Der  VC  20  meldet  0,91 
Sekunden,  der  C  64  1,08  Sekunden. 
Das  bringt  gegenüber  der  IF..THEN- 
Schleife  der  Version  10  eine  ganze 
Menge,  nämlich  ungefähr  2  Sekun¬ 
den,  oder,  auf  die  Zeit  der  Version  1 
bezogen,  89  Prozent. 

Das  einzige,  was  wir  in  der 
FOR..NEXT-Schleife  noch  verbes¬ 
sern  können,  ist  die  vielgeübte  Pra¬ 
xis  des  Weglassens  der  Schleifenva¬ 
riable  Z  nach  dem  NEXT-Befehl. 

50  NEXT 

Der  Geschwindigkeitsgewinn  die¬ 
ser  Version  12  ist  nicht  sehr  groß,  näm¬ 
lich  nur  etwa  0,1  Sekunden,  aber  wir 
wollen  die  Methode  doch  in  die 
nächste  Regel  mit  aufnehmen. 


Regel  5 

Schleifen  sollen  nicht  mit  IF..THEN,  sondern  mit 
FOR.TQ.NEXT  gebildet  werden.  Die  Schleifen- 
varible  nach  NEXT  soll  dann  weggelassen  wer¬ 
den,  wenn  es  nicht  zu  Verwechslungen  mit  ande¬ 
ren  Schleifen  führen  kann. 

Ich  bin  fast  am  Ende  meines  Be¬ 
schleunigungslateins.  Nur  eines 
bleibt  noch,  nämlich  die  bisher 
hochgehaltene  Lesbarkeit  des  Pro¬ 
gramms  zu  opfern.  Ich  hoffe  näm¬ 
lich,  Sie  haben  bisher  meiner  Ein¬ 
gangsforderung  Folge  geleistet  und 
alles  schön  mit  Leerzeichen  ge¬ 
schrieben.  Das  behalten  wir  zu¬ 
nächst  noch  bei,  im  Gegenteil,  wir 
wollen  zunächst  die  Lesbarkeit  noch 
erhöhen  und  REM-Erläuterungen 
einfügen.  Ich  schlage  vor,  die  Version 
13  so  auszuschmücken: 


10  TI$=”000000”:REM  UHR  AUF  NULL 

12  REM  ************************ 

13  REM* * 

14  REM ‘TEST-PROGRAMM* 

15  REM* 

16  REM*** - ***************** 

20  PRINT  CHR$(147);:REM  ALLES  LOE- 

SCHEN 

30  FOR  Z  =  1  TO  374:REM  374  ZEICHEN 

40  PRINT’A”: 

50  NEXT 

999  REM  ZEIT  AUSDRUCKEN 
1000  POKE  214,18:PRINT  TI/60  ”SEKUN- 
DEN":END 

Sieht  gut  aus,  nicht  wahr? 

Aber  leider,  REM-Erläuterungen 
kosten  Zeit.  Wir  sind  um  0,15  (0,2)  Se¬ 
kunden  langsamer  geworden. 

Wir  schmeißen  deshalb  alle 
REMs  wieder  raus  und  haben  damit 
wieder  Version  12.  Jetzt  aber  gehen 
wir  einen  Schritt  in  der  anderen 
Richtung  weiter  und  entfernen  alle 
Leerstellen  und  Abstände.  Mit  die¬ 
ser  Version  14  will  ich  Ihnen  zeigen, 
daß  das  auch  einen  Einfluß  auf  die 
Laufgeschwindigkeit  hat. 


10  Tl$="000000" 

20  PRINTCHR$(147); 

30  F0RZ=1T0374 
40  PRINT'A"; 

50  NEXT 

1000  POKE214,18:PRINT:PRINT- 
TI/60”SEKUNDEN":END 


Das  Ergebnis  ist  für  den  VC  20  0,81 
Sekunden,  für  den  C  64  0,98  Sekun¬ 
den. 

In  Version  15  treiben  wir  die 
Schrumpfung  ins  Extrem,  indem  wir 
das  Programm  im  Prinzip  unverän¬ 
dert  aber  mit  einem  Minimum  an 
Zeilen  schreiben,  also  möglichst  vie¬ 
le  Befehle  in  eine  Zeile  packen. 

Sie  wissen,  die  maximale  Zeilen¬ 
länge  beträgt  88  Zeichen  beim  VC 
20,  80  Zeichen  beim  C  64.  Unser  Pro¬ 
gramm  können  wir  sogar  in  einer 
einzigen  Zeile  unterbringen  —  fast 
unglaublich,  aber  es  geht.  Sie  müs¬ 
sen  allerdings  alle  Abkürzungsmög¬ 
lichkeiten  ausschöpfen,  die  das 
Commodore-System  bietet.  Im  An¬ 
hang  der  Commodore-Handbücher 
finden  Sie  die  Liste  aller  Abkürzun¬ 
gen  beim  Eintippen:  C  und  geSHIF- 
TEtes  H  für  CHR$,  ?  für  PRINT  und 
so  weiter.  Im  nachfolgenden  Aus¬ 
druck  ist  das  natürlich  nicht  zu  se¬ 
hen,  weil  der  Befehl  LI  ■'  •  die  Abkür¬ 
zungen  nicht  berücksichtigt.  So  kom¬ 
men  auch  mehr  als  88  (80)  Zeichen  in 
eine  Zeile  des  Listings,  woran  Sie 
sich  nicht  stören  dürfen. 

10  TI$  =  ”000000":PRINTCHR$(147); 
:FORZ  =  lT0374:PRINTnA”;:NEXT 
:POKE214,18:PRINT:PRINT  TI/60 
"SEKUNDEN"  :END 

Und  siehe  da,  diese  »Kurzform« 
des  Programms  ist  auch  die  aller¬ 
schnellste  Version.  Der  VC  20 
braucht  0,78  Sekunden,  der  C  64 
0,93  Sekunden.  Diese  letzte  Be¬ 
schleunigung  wird  dadurch  er¬ 
reicht,  daß  das  Betriebssystem  des 
Computers  nur  einmal  einen  Zeilen¬ 
anfang  und  Zeilenende  suchen  und 
erkennen  muß,  statt  sechsmal  in  der 
Version  14. 

Das  Ausnützen  der  vollen  Kapazi¬ 
tät  einer  Zeile  bringt  also  nicht  nur 
den  Vorteil  eines  kleineren  Spei¬ 
cherbedarfs,  sondern  auch  Zeitge¬ 
winn. 

*  Programme  ohne  REM-Erläuterungen  und  oh¬ 
ne  Leerstellen  zwischen  den  Zeichen  laufen 
schneller. 

*  Zui  Reduzierung  der  Zeilenzahl  sollen  mög¬ 
lichst  viele  Befehle  in  eine  Zeile  geschrieben 
werden. 

»Einzeiler«  können  auch  Spaß  und 

Herausforderung  zugleich  sein. 
Man  sollte  eigentlich  annehmen, 


daß  mit  einer  Zeile  nicht  viel  anzu¬ 
fangen  sei. 

Weit  gefehlt! 


Einzeilige  Programme 


Eine  englische  Zeitschrift  hat  dar¬ 
über  sogar  einige  Male  einen  Wett¬ 
bewerb  ausgeschrieben  (die  64’er 
ist  unabhängig  davon  auch  auf  diese 
Idee  gekommen,  siehe  Ausgabe  8; 
d.  Red.).  Ich  schreibe  die  Einzeiler 
unten  lesbar,  das  heißt  mit  Leerstel¬ 
len.  Sie  müssen  die  Programme 
aber  wieder  mit  allen  Abkürzungs¬ 
tricks  schreiben,  sonst  geht's  schief. 
□Von  A.  Boyd  (Manchester)  stammt 
ein  Primzahlen-Erzeuger,  der  für 
die  obere  Grenze  von  65000  viele 
Stunden  braucht. 

1  FOR  N  =  1  TO  65000:F=0FOR  J  =  2 
TO  N— 1:F  =  F  +  ((N— J*INT(N/J))  =  0) 
:NEXT:X  =  -(F  =  0):  PRINT 
RIGHT$(STR$(X*N),6*X):NEXT 
□Ein  anderer  Einzeiler  wurde  von 
A.M.  Simmelt  (Sheffield)  geschrie¬ 
ben  zur  Konvertierung  von  Dezimal¬ 
zahlen  in  Dualzahlen. 

1  INPUT  A:FOR  1  =  14  TO  0  STEP-1 
:Z  =  A  AND  2tI:A  =  A-Z:Z  =  Z/2t 
I:Z$  =  RIGHT$(STR$(Z),1):PRINT  Z$;: 
NEXT:GOT01 

□Zuletzt  noch  ein  Juwel,  nur  für  den 
VC  20  geeignet,  von  M.  Dooling 
(Dewsbury).  Hochauflösende  Grafik 
und  Scrolling  in  einer  Zeile  —  wer 
hält's  für  möglich? 

1  POKE  36869,255:  PRINT”[SHIFT 
CLR/HOME]@@@@@@@@@@ 
@@":FOR  X  =  7168  TO  7175:POKE 
X,  PEEK(X  +  l):NEXT:POKE7176, 
PEEK(A +  8  f  5):  A  =  A  +  l:GOTO  1 

Lassen  wir's  gut  sein  mit  diesem 
Programmsport  und  kehren  wir  zu¬ 
rück  zu  einer  abschließenden  Be¬ 
trachtung  der  Zeitgewinne. 

Wir  haben  in  Version  1  mit  8,25 
(10,48)  Sekunden  begonnen.  Diese 
Laufzeit  wurde  ohne  Änderung  des 
Programmresultats  stetig  verkürzt, 
bis  wir  schließlich  in  Version  15  bei 
0,78  (0,93)  Sekunden  gelandet  sind. 

Ich  nenne  diese  Beschleunigung 
um  90  Prozent  schlicht  und  einfach 
spektakulär. 

Mehr  allerdings  kann  ich  nicht 
herausholen,  es  sei  denn  —  na  ja,  ei¬ 
gentlich  habe  ich  am  Anfang  ganz 
laut  »Basic«  gesagt. 

Aber  ich  kann  doch  nicht  wider¬ 
stehen  und  Sie  scharf  machen  auf  ul¬ 
tima  velocitas  —  zu  deutsch  Maschi¬ 
nensprache.  Dazu  aber  in  der  näch¬ 
sten  Ausgabe. 

(Dr.  Helmuth  Hauck/aa) 
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Datex-P  und  ausländische 
~  Netzwerke 

Datex-P  ist  ein  Daten-Vermittlungssystem  der  Deut¬ 
schen  Bundespost.  In  diesem  Netz  wird  die  Vermitt¬ 
lung  der  Daten  in  Form  von  sogenannten  Paketen 
(daher  auch  das  ’P’  in  Datex-P)  vorgenommen. 


Das  Datex-P-Netz  ist  ein  flächen¬ 
deckendes,  öffentliches  Daten¬ 
übertragungsnetz,  welches  auf 
der  Technologie  der  Paketvermitt¬ 
lung  basiert.  Bei  dieser  Technik 
werden  die  zu  übertragenden  Da¬ 
ten  an  einen  Netzknoten  übermittelt, 
dort  kurzzeitig  zwischengespei¬ 
chert  und  dann  —  eventuell  über  an¬ 
dere  Knoten  —  an  die  Zieladresse 
weitergeleitet.  Paketvermittlung  ist 
dadurch  charakterisiert,  daß  die  zu 
sendenden  Daten  in  Pakete  maxi¬ 
maler  Länge  zerlegt  werden,  die  mit 
zusätzlichen  Verwaltungsinformatio¬ 
nen  versehen  dem  Netz  zur  Weiter¬ 
vermittlung  zugeführt  und  schließ¬ 
lich  vom  empfangenden  Teilneh¬ 
mer  wieder  zusammengesetzt  wer¬ 
den.  Die  Vermittlungsknoten  sind 
durch  digitale  Leitungen  hoher  Ge¬ 
schwindigkeit  miteinander  verbun¬ 
den.  Die  Beibehaltung  der  Reihen¬ 
folge  gesendeter  Pakete  wird  vom 
Paket  vermittlungsnetz  garantiert. 
Der  Datenaustausch  zwischen  der 
sendenden  und  der  empfangenden 
Endeinrichtung  wird  über  eine  logi¬ 
sche  Verbindung  abgewickelt,  bei 
der  aber  (im  Gegensatz  zur  Lei¬ 
tungsvermittlung)  die  Übertra¬ 
gungsleitungen  nicht  exklusiv  re¬ 
serviert,  sondern  mehrfach  genutzt 
werden,  da  sie  nur  zur  tatsächlichen 
Transportzeit  in  Anspruch  genom¬ 
men  werden.  Man  spricht  in  diesem 
Zusammenhang  von  einer  virtuellen 
Verbindung.« 

So  lautet  die  offizielle  Definition  im 
Datex-P-Handbuch  der  Post. 


»Leitungsvermittlung«  verwendet 
zum  Beispiel  der  Datei-Dienst 
Datex-L  der  Post,  aber  auch  das  nor¬ 
male  Telefon.  Man  kann  sich  also 
das  Ganze  als  ein  Netz  von  einzel¬ 
nen  Computern  vorstellen,  die 
nichts  anderes  zu  tun  haben,  als  an- 
kommende  Daten  (Pakete)  an  den 
richtigen  Computer  weiterzuleiten 
(Bild  1).  Die  »Adresse«  des  Zielcom¬ 
puters  entnehmen  sie  dabei  der 
Kopfinformation  des  jeweiligen  Pa¬ 
kets,  das  heißt  am  Anfang  eines  Da¬ 
tenpakets  steht  der  »Empfänger« 
des  Datenpakets.  Beim  Aufbau  des 
ganzen  Netzes  liegt  der  Vergleich 
zum  Telefonnetz  nahe,  auch  hier  be¬ 
steht  das  Netz,  aus  Verrrüüungsstel- 
len,  deren  Funktion  mit  dei  der  »Ver¬ 
mittlungscomputer«  des  Datex-P- 
Netzes  äquivalent  ist. 

Der  Vorteil  eines  Netzwerkes  liegt 
auf  der  Hand:  Die  Anzahl  der  Lei¬ 
tungen,  die  nötig  sind,  um  eine  Ver¬ 


bindung  zwischen  zwei  beliebigen 
Datenendeinrichtungen  möglich  zu 
machen,  ist  erheblich  geringer,  als 
wenn  jede  Datenendeinrichtung  mit 
jeder  verbunden  wäre. 

Zugang  zum  Datex-P-Netz 
mit  Heimcomputer  oder 
Terminal 

Man  braucht  für  den  Datex-P- 
Zugang  generell  drei  verschiedene 
Dinge:  Eine  Tastatur,  einen  Büd- 
schirm  oder  eine  andere  Anzeige, 
um  die  empfangenen  Daten  anzu¬ 
zeigen  und  ein  Modem  (MODulator- 
DEModulator),  der  die  Daten  ent¬ 


sprechend  umwandelt,  damit  sie 
über  das  Telefon  übertragen  wer¬ 
den  können  (Bild  2).  Zum  Begriff 
MODEM:  Alle  Vorrichtungen,  die 
»Daten  modulieren«  sind  der  Defini¬ 
tion  nach  Modems.  Akustikkoppler 
sind  dabei  eine  Untergruppe,  wel¬ 
che  die  Information  nicht  durch  di¬ 
rekte  Verbindung  mit  dem  Telefon¬ 
netz  übertragen,  sondern  mit  Laut¬ 
sprecher  und  Mikrofon  eine  »akusti¬ 
sche  Koppelung«  erreichen,  Als  nor¬ 
maler  Benutzer  des  Datex-P-Netzes 
braucht  man  sich  um  die  Paketüber¬ 
tragung  nicht  zu  kümmern,  da  die 
Umwandlung  der  Daten  der  ange¬ 
wählte  PAD  (Packet  Assembly  Di- 
sassembly  Facility),  auch  wieder  ein 
Computer,  übernimmt.  Dabei  kom¬ 
men  die  Daten  in  Form  von  einzel¬ 
nen  Zeichen  an,  werden  vom  PAD  in 
Datenpakete  umgewandelt  und  an 
die  richtige  Adresse  weitergeleitet. 
Genauso  werden  empfangene  Da¬ 
tenpakete  vom  PAD  in  einzelne  Zei¬ 
chen  umgewandelt,  Bei  Datex-P-Be- 
trieb  mit  Terminal  ist  in  der  Regel  au¬ 
ßer  einem  Modem  und  einem  Tele¬ 
fon  nichts  weiter  erforderlich.  Bei  ei¬ 
nem  Heimcomputer  braucht  man, 
damit  er  eine  Terminalfunktion 
übernimmt,  ein  Terminalprogramm 
(wie  zum  Beispiel  das  Teleterm  für 
den  C  64)  und,  wenn  er  die  erforder¬ 
liche  Schnittstelle  zum  Modem  nicht 
bietet,  noch  ein  Interface,  das  die  nö¬ 
tige  Umwandlung  der  Daten  über¬ 
nimmt.  Dann  kann  es  losgehen,  man 
wählt,  je  nach  Übertragungsrate 


des  Modems  (in  der  Regel  hat  man 
ein  300-Baud-Modem)  die  entspre¬ 
chende  Nummer  des  nächsten 
PADs  an. 

Tabelle  1  gibt  eine  Übersicht  der 
in  Deutschland  anwählbaren  PADs. 

Jeder  Commodore  64-Benutzer, 
der  in  der  Lage  ist,  Mailboxen  wie 
Decates  oder  Tedas  anzu  wählen,  ist 
mit  der  selben  technischen  Einrich¬ 
tung  auch  in  der  Lage,  die  PADs  an¬ 
zuwählen,  um  am  Datex-P-Netz  teil¬ 
zunehmen  (300-Baud-Nummern!). 

Es  besteht  auch  die  Möglichkeit, 
einen  Datex-P-Hauptanschluß  zu 
beantragen.  Dann  erhält  man  eine 
Extra-Leitung,  über  die  die  Daten  im 
Datex-P-Paketformat  ankommen. 
Die  billigste  Version  kostet  300 
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PAD 

Vorwahl 

300  Baud 

1200  Baud 

1200/75 

Baud 

Augsburg 

0821 

464011 

464031 

464051 

Berlin 

030 

240001 

240081 

240061 

Bielefeld 

0521 

59011 

59021 

59041 

Bremen 

0421 

310131 

314291 

315077 

Dortmund 

0231 

57011 

52011 

52081 

Düsseldorf 

0211 

329318 

329249 

320748 

Essen 

0201 

787051 

791021 

793003 

Frankfurt 

069 

20281 

20291 

20201 

Hamburg 

040 

441231 

44261 

441281 

Hannover 

0511 

326651 

327481 

327591 

Karlsruhe 

0721 

60241 

60381 

60581 

Köln 

0221 

2911 

2831 

2951 

Mannheim 

0621 

39931 

39941 

39951 

München 

089 

228730 

228630 

228758 

Nürnberg 

0911 

20571 

20541 

20501 

Saarbrücken 

0681 

810011 

810031 

810061 

Stuttgart 

0711 

299171 

299061 

299291 

Achtung:  Die  Vorwahl  für  Frankfurt  lautet  ab  5.8.84  »069« 

Tabelle  1.  Eine  Liste  der  in  Deutschland  anwählbaren  PADs 
(Packet  Assembly  Disassembly  Facility) 


aus,  den  Teil  B  der  NUI,  das  Pass¬ 
wort,  bekommt  er  dann  von  der  Post 
schriftlich  mitgeteilt.  Dieser  Teil  B 
wird  mittels  eines  bestimmten  Al¬ 
gorithmus1  aus  dem  Teil  A  der  Teil¬ 
nehmererkennung  errechnet. 

Ohne  eine  NUI  erreicht  man  nur 
Teilnehmer,  deren  Anschluß  die 
Gebühren  übernimmt,  und  das 
auch  nur  innerhalb  Deutschlands. 
Bei  der  Anfrage  auf  Gebührenüber¬ 
nahme  muß  vor  der  NUA  die  Zei¬ 
chenfolge  »R«  und  » « (Leerzeichen) 
stehen.  Übernimmt  der  angewählte 
Anschluß  die  Gebühren  nicht,  so 
meldet  der  Datex-P-Computer  (PAD) 
»Gebührenübernahme  verweigert«. 
Nun  eine  Liste  von  Computern,  die 
ein  Benutzer  ohne  Eingabe  einer 
Benutzerkennung  über  Datex-P  er¬ 
reichen  kann  (jede  einzelne  Num¬ 
mer  ist  getestet): 


Mark  im  Monat  und  dürfte  für  kei¬ 
nen,  der  einen  Homecomputer  be¬ 
sitzt,  in  Frage  kommen.  Die  Compu¬ 
ter,  die  an  einem  solchen  Hauptan¬ 
schluß  hängen,  sind  dann  die,  die 
»angerufen«  werden  können. 


So  wird  eine  Verbindung 
hergestellt 


Die  Nummer  des  PADs  wird  ge¬ 
wählt,  das  Telefon  mit  dem  Akustik¬ 
koppler  verbunden,  wenn  das  Piep¬ 


Eingabe  nach  Meldung  des 
PADs 

Verbindung  mit 

R  45890040207  <  RETURN  > 

IABG-Cyber  (Großrechner)  Techn. 
Dienstleist,  und  Beratungen  für  öff. 

Ber. 

R  45211040026  <RETUkN> 

PRIMENET  Stadt  Düsseldorf 

R  45611040037  <  RETURN  > 

Control  Data  Corporation  Hersteller 
von  Großrechner. 

R  45221040002  <  RETURN  > 

DIMDI  —  Informationsdienst  für  Me¬ 
dizinische  Bereiche 

R  45611040250  <  RETURN  > 

Gateway  zum  Tymnet- 
Amerikamschen  Netzwerk 

R  45231040017  <  RETURN  > 

noch  einmal  Primenet 

Tabelle  2.  Liste  von  Computern  ohne  Eingabe  einer  Benutzerkennung 

sen  des  PAD-Modems  hörbar  ist 
(bei  300  Baud  wird  das  Modem  des 
Anrufers  wie  beim  Anrufen  von  De- 
cates  auf  ORIGINATE  gestellt). 

Dann  tippt  man ».« (Punkt)  und  RE¬ 
TURN  gegebenenfalls  so  lange,  bis 
sich  der  PAD  mit  »Datex-P«  und  der 
Nummer  seines  Anschlusses  mel¬ 
det.  Jetzt  kann  sich  der  Benutzer 
durch  Eingabe  seiner  Benutzerken¬ 
nung  (NUI)  identifizieren  und/oder 
eine  sogenannte  NUA  (Network 
User  Adress)  eingeben.  Das  ist 
nichts  anderes  als  eine  Art  »Telefon¬ 
nummer«  innerhalb  des  Datex-P- 
Netzes).  Nach  Eingabe  der  NUA 
meldet  Datex-P,  ob  der  angerufene 
Anschluß  frei  ist  (»Verbindung  her¬ 
gestellt«),  besetzt  ist  (»Gegenstelle 
belegt«)  oder  nicht  antwortet  (»Ge¬ 
genstelle  antwortet  nicht«).  Wie 
beim  Telefon  gibt  es  eine  Meldung 
»kein  Anschluß  unter  dieser  Num¬ 
mer«. 


Beim  Datex-P-Netz  gibt  es  natür¬ 
lich  auch  eine  Gebührenabrech¬ 
nung.  Sie  richtet  sich  dabei  nicht 
nach  Entfernung  der  Verbindungs¬ 
punkte,  sondern  hauptsächlich 
nach  der  Menge  der  übertragenen 
Daten. 


Was  ist  eine  NUI? 


Das  Abrechnungssystem  des 
Datex-P-Netzes  basiert  auf  soge¬ 
nannten  NUIs  (Network-User-Iden 
tifications),  die  den  Teilnehmer 
identifizieren,  der  für  die  Verbin¬ 
dung  zu  zahlen  hat.  Dieses  Abrech¬ 
nungssystem  hat  den  Vorteil,  daß 
der  Datex-P-Benutzer  von  jedem  Te¬ 
lefon  aus  in  das  Netz  gelangen  kann. 
Die  NUI  besteht  insgesamt  aus  zwei 
Teilen,  Teil  A  und  B.  Bei  der  Beantra¬ 
gung  der  NUI  sucht  sich  der  Teil¬ 
nehmer  den  Teil  A  der  NUI  selbst 


Kurz  zusammengefaßt:  Im  norma¬ 
len  Zustand  des  PADs,  wenn  er  also 
eine  Eingabe  verlangt,  kann  man  im¬ 
mer  eine  Nummer  »wählen«,  also 
eingeben.  Hat  man  sich  durch  Ein¬ 
gabe  seiner  NUI  identifiziert,  ist  die 
Eingabe  jeder  Nummer  möglich, 
hat  man  sich  nicht  identifiziert,  kann 
man  nur  die  »reverse  Charging«- 
Nummern,  also  die,  die  die  anfallen¬ 
den  Gebühren  übernehmen,  an¬ 
wählen.  Die  Anfrage  auf  Gebühren¬ 
übernahme  durch  die  Gegenstelle 
geschieht  dadurch,  daß  die  Zeichen 
»R«  und  »  «  (Leerzeichen)  vor  der 
Nummer  zu  stehen  haben.  Sonst 
sind  folgende  Befehle  wichtig: 

Hat  der  PAD  eine  Verbindung  zu 
einem  anderen  Computer  herge¬ 
stellt,  und  möchte  dem  PAD  einen 
Befehl  übermitteln,  drückt  man  ge¬ 
nerell  CTRL-P.  Dann  wird  der  Befehl 
eingegeben,  und  dieser  mit  RE¬ 
TURN  abgeschlossen.  Hat  der  PAD 
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keine  Verbindung  aufgebaut,  ist  die 
Eingabe  von  CTRL-P  nicht  erforder¬ 
lich. 

CLEAR 

Dieser  Befehl  bricht  die  bestehen¬ 
de  Verbindung  ab.  In  der  Praxis 
wird  er  dann  angewandt,  wenn  man 
nicht  weiß,  wie  man  den  Computer 
normal  verlassen  kann.  Dieser  Be¬ 
fehl  hat  also  nur  dann  einen  Sinn, 
wenn  Datex-P  eine  Verbindung  auf¬ 
gebaut  hat. 

NUI  Dxxxxxxxxx 

Der  Benutzer  muß  sich  identifizie¬ 
ren,  das  heißt  er  gibt  seine  Kennung 
ein  (Teil  A).  Der  PAD  fragt  danach 
den  Teil  B  der  NUI  (das  Passwort)  ab. 
(die  »x«  stehen  hier  für  bei  der  Bean¬ 
tragung  der  NUI  frei  wählbare  Zei¬ 
chen). 

SET  3:126,  5:1,  12:1 

Diese  Befehlsfolge  setzt  im  PAD 
einige  Parameter  auf  bestimmte 
Werte.  Damit  kann  das  Terminalpro¬ 
gramm  mit  dem  sogenannten  X- 
ON/X-OFF-Protokoll  fahren,  das 
heißt  der  PAD  stoppt  die  Ausgabe 
der  Daten,  wenn  er  ein  CTRL-S  emp¬ 
fängt  und  fährt  wieder  damit  fort, 
wenn  er  ein  CTRL-Q  erhält.  Tele- 
term  arbeitet  zum  Beispiel  mit  die¬ 
ser  Sequenz,  um  Daten  auf  Diskette 
abzuspeichern. 

NUI  OFF 

Hiermit  wird  die  korrekt  eingege¬ 
bene  NUI  gelöscht,  das  heißt  jetzt 
kann  eine  andere  eingegeben  wer¬ 
den.  Die  Post  empfiehlt  diesen  Be¬ 
fehl  vor  Auflegen  des  Telefons.  Da¬ 
mit  ist  sichergestellt,  daß  die  NUI 
nicht  im  PAD  gültig  bleibt,  und  von 
anderen  mißbraucht  werden  kann. 


Wie  beantragt  man  eine 
NUI,  was  kostet  sie? 


Der  beste  Weg  zu  einer  eigenen 
NUI:  Man  ruft  das  örtliche  Fernmel¬ 
deamt  der  Post  an  und  läßt  sich  die 
Nummer  der  für  Datex-P  zuständi¬ 
gen  Stelle  geben.  Dort  sagt  man  ein¬ 
fach,  man  möchte  eine  NUI  beantra¬ 
gen,  und  sie  sollen  ein  Antragsfor¬ 
mular  zuschicken  (auch  nach  einem 
Freiumschlag  fragen,  dann  braucht 
man  kein  Porto  zu  zahlen).  Auf  dem 
Antragsformular  steht  dann  alles 
weitere.  Dieses  Antragsformular 
steckt  man  ausgefüllt  in  den  Um¬ 
schlag,  und  nach  ungefähr  einer 
Woche  bekommt  man  von  der  Post 
Nachricht,  daß  man  den  Teil  B  der 
NUI,  das  Passwort,  beim  nächsten 
Postamt  mit  seinem  Ausweis  abho¬ 
len  kann.  Bis  hierher  entstehen  ei¬ 


nem  keinerlei  Kosten.  Ab  da  kostet 
die  NUI  monatlich  15  Mark,  ohne 
daß  sie  benutzt  werden  muß  (ähn¬ 
lich  der  Grundgebühr  beim  Tele¬ 
fonanschluß).  Die  Verbindungsko¬ 
sten  berechnen  sich  hauptsächlich 
nach  der  Menge  der  übertragenen 
Daten.  Eine  angewählte  Verbindung 
zum  PAD  (300  Baud)  kostet: 

Der  PAD-Zugang  4  Pfennig  pro 
Minute; 

jede  bereitgestellte  Verbindung  5 
Pfennig; 

Der  Datex-P  Gebrauch  1  Pfennig 
pro  Minute. 

Die  Übertragung  von  64  Bytes  ko¬ 
stet  zusätzlich: 

von  8  bis  18  Uhr  0,33  Pfennig 
von  6-8  und  18-22  Uhr  0,22  Pfennig 
von  22-6  Uhr  0,11  Pfennig 

Diese  Preise  senken  sich  mit  der 
übertragenen  Anzahl  von  64-Byte- 
Gruppen;  es  gibt  also  eine  Art  Men¬ 
genrabatt.  Bei  Verbindungen  mit 
dem  Ausland  wird  noch  eine  zusätz¬ 
liche  Zeitgebühr  berechnet,  die 
zum  Beispiel  für  die  USA  0,20  Pfen¬ 
nig  pro  Minute  beträgt. 


Lohnt  sich  eine  NUI? 


Diese  Frage  muß  jede±  für  sich 
selbst  beantworten,  vor  allem  dann, 
wenn  er  sie  nicht  geschäftlich,  son¬ 
dern  privat  nutzen  will.  Der  wesent¬ 
liche  Vorteil  von  Datex-P  ist:  Eine 
Verbindung  über  den  Bereich  des 
örtlichen  Telefonnetzes  hinaus 
kommt  über  Datex-P  immer  billiger, 
als  wenn  man  direkt  dort  anrufen 
würde.  Natürlich  hängt  es  von  den  fi¬ 
nanziellen  Verhältnissen  ab.  Viele 
jugendliche  C64-Besitzer  sind  kaum 
in  der  Lage,  eine  NUI  von  ihrem  Ta¬ 
schengeld  zu  finanzieren.  Auch  wird 
die  Unterschrift  des  Anschlußmha- 
bers  verlangt,  das  heißt  die  Unter¬ 
schrift  der  Eltern,  die  sie  aus  Angst 
vor  den  Kosten  verweigern  werden. 
Ich  persönlich  rate  jedoch  jedem, 
der  es  sich  leisten  kann,  eine  NUI  zu 
beantragen.  Mit  einer  NUI  kann 
man  zum  Beispiel  ein  CBBS,  ein 
Computer  Bulletin  Board  Service 
in  Aachen  erreichen  (NUA 
44241040341),  das  sogenannte  RMI- 
Net.  Für  die  Benutzung  dieses  Servi¬ 
ces  werden  keinerlei  weitere  Ge¬ 
bühren  verlangt,  auch  nicht  (im  Ge¬ 
gensatz  zu  Decates)  wenn  man  ein¬ 
getragener  Benutzer  werden  will. 
Ich  habe  den  Betreibern  des  RMI- 
Net  einige  Fragen  gestellt,  die  der 
SYSOP  (Systemoperator)  des  RMI- 
Net,  Rupert  Mohr,  wieder  mit  einer 
Message  beantwortete.  Mich  inter¬ 
essierten  die  Beziehungen  zwischen 


dem  RMI-Net  und  dem  Chaos- 
Computer-Club,  ob  sich  seiner  Mei¬ 
nung  nach  eine  NUI  für  emen  Privat¬ 
mann  lohnt,  warum  sie  nicht  mehr 
ohne  NUI  erreichbar  sind,  und  ob  es 
etwas  ähnliches  wie  RMI  noch  ein¬ 
mal  gibt.  So  sehen  die  Nachrichten 
im  Originaltext  am  Bildschirm  aus: 

Msg  #  *840  Dated  07-10-84  11:13:58 
From:  SYSOP 
To:  THOMAS  OBERMAIR 
Re:  (R)Fragen-2 

1.  Zwischen  mir  und  dem  CCC  be¬ 
stehen  keine  Beziehungen. 

2.  Ich  kann  nicht  beurteilen,  ob  sich 
für  einen  Privatmann  eine  NUI 
lohnt.  Im  Raum  Aachen  lohnt  sich 
aber  unter  Umständen  schon  ein 
Hauptanschluß  für  einen  Privat¬ 
mann. 

3.  Reverse  Charge  kostet  Geld,  un¬ 
ser  Geld. 

4.  Das  kommt  auf  die  Definition  von 
ähnlich  an.  Wenn  Du  gebührenfrei 
meinst,  dann:  NEIN. 

Weiter  (J),  N,  NS,  RE,  K?  k 
Msg  #  840  Killed. 

Msg  #  ( 577  to  842,  *,  <H>elp)? 

RMI  ist  ein  Unternehmen,  das  Soft¬ 
ware  für  den  IBM-PC  herstellt.  Das 
CBBS  läuft  ebenfalls  auf  einem  IBM- 
PC  mit  Harddisk.  RMI  hat  Zugang  zu 
verschiedenen  Datenbanken  (wie 
CompuServe,  The  Source)  und  sam¬ 
melt  dort  Informationen,  die  in  ihrem 
CBBS  öffentlich  zugänglich  gemacht 
werden.  Sie  bietet  RMI  eine  umfang¬ 
reiche  Programmbibliothek  an. 
Wenn  genügend  C  64-Anwender 
RMI  benutzen  würden,  könnte  man 
eine  spezielle  Rubrik  für  C  64- 
Programme  einrichten  lassen. 


Der  Zugang  zu  ausländi¬ 
schen  Netzwerken 


Da  verschiedene  Länder  Daten¬ 
vermittlungsnetze  auf  Paketbasis  an- 
bieten,  liegt  der  Zugang  von  einem 
Netz  zum  anderen  nahe.  Dies  ge¬ 
schieht  durch  sogenannte  Auslands¬ 
vermittlungsstellen,  die  die  even¬ 
tuell  verschiedenen  Protokoll forma- 
te  untereinander  anpassen  (siehe 
Bild  3).  Ferner  übernehmen  sie  die¬ 
selben  Aufgaben,  wie  die  Vermitt¬ 
lungscomputer  des  Datex-P-Netzes. 
In  der  Praxis  sieht  das  so  aus:  jedes 
Netz  hat  eine  eigene  »Vorwahl«,  die, 
wie  beim  Telefon,  vor  der  eigentli¬ 
chen  Teilnehmer-Nummer  eingege¬ 
ben  wird.  Datex-P  verlangt  vor  jeder 
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Bild  3.  Schema  der  Verbindung  mit  ausländischen  Netzwerken 


Auslandsnummer  die  Ziffer  0  (Null) 
als  Kennzeichen  für  einen  Verbin¬ 
dungswunsch  mit  dem  Ausland.  In 
Tabelle  3  sehen  Sie  eine  nicht  voll¬ 
ständige  Aufstellung  erreichbarer 
Netze  mit  ihren  »Vorwahlen«  (soge¬ 
nannte  Netzkennzahlen).  Das  »in 
ausländische  Netze  eindringen«  ist 
also  meistens  nichts  anderes,  als  das 
Wählen  einer  vorher  bekannten 
NUA  im  Ausland.  Mit  folgender  Aus¬ 
nahme:  Es  gibt  Computer,  die  einen 
Anrufer  weitervermitteln  und  einen 
recht  komfortablen  Dialog  bieten. 
Generell  gilt:  Für  Verbindungen  mit 
dem  Ausland  braucht  man  eine  NUI. 
Auslandsnummern  findet  man  in 
größeren  Mailboxen,  wie  in  Decates 
oder  im  RMI-Net  (über  Datex-P).  So¬ 
weit  man  die  Datenbanken  nicht  be¬ 
zahlen  will  oder  kann,  muß  man 
Hacken,  das  heißt  die  verlangten 
Passwörter  herausfinden.  Wertvolle 
Kontaktadresse  hierzu:  Der  Chaos 
Computer  Club,  ein  Club  von  Com¬ 
puterfreaks,  die  es  sich  zur  Philoso¬ 
phie  gemacht  haben,  möglichst  auf 
alles  kostenlosen  Zugriff  zu  haben. 
Erreichbar  sind  sie  unter  der  RMI- 
Net-Mailbox  mit  dem  Empfängerna¬ 
men  CHAOS  TEAM,  oder  über  nor¬ 
malen  Postweg  an  folgende  Adres¬ 
se:  Chaos  Computer  Club  c/o 
Schwarzmarkt  Bundesstr.  9  D  2000 
Hamburg  13.  Es  lohnt  sich,  das  Infor¬ 
mationsblatt  »Die  Datenschleuder«, 
die  unregelmäßig  erscheint,  im 
Abonnement  kommen  zu  lassen. 
Das  kostet  etwa  30  Mark  für  ein  Jahr. 

62  23S? 


Land 

Netz 

Zahl 

Belgien 

DCS 

2062 

DCS 

2068 

DCS 

EURO- 

2069 

NET 

2063 

Dänemark 

DATA- 

PAK 

EURO- 

2382 

NET 

2383 

England 

IPSS 

2341 

PSS 

EURO- 

2342 

NET 

2343 

Kanada 

DATA- 

PAK 

GLO- 

3020 

BEDÄT 

3025 

USA 

TYM- 

NET 

TELE- 

3106 

NET 

DATA- 

3110 

PAK 

AUTO- 

3119 

NET 

3126 

Japan 

DDX-P 

VENUS- 

4401 

P 

4408 

Italien 

ITAPAC 

2222 

Tabelle  3.  Liste  der  über  Oatex-P  erreichbaren 
ausländischen  Netze  (nicht  vollständig) 
mit  der  »Vorwahlnummer« 


Mittlerweile  sind  bereits  drei  Aus¬ 
gaben  erschienen. 

Zum  EURONET:  Vor  einigen  Jah¬ 
ren  haben  die  Mitgliedstaaten  der 
EG  beschlossen,  ein  gemeinsames 
Netz  von  Paketvermittlungsdiensten 
aufzubauen.  Ein  einziger  Großrech¬ 
ner  übernimmt  für  alle  Länder  der 
EG  die  Vermittlungsaufgaben.  Die¬ 
sen  Computer  soll  es  in  einem  Jahr 
nicht  mehr  geben;  das  heißt  die  Ver¬ 
mittlung  der  Datenpakete  wird,  wie 
jetzt  schon  teilweise  realisiert,  über 
»normale«  Auslandsvermittlungs¬ 
stellen  durchgeführt. 


Was  bringt  die  Zukunft? 


Die  Post  plant  für  die  nähere  Zu¬ 
kunft  ein  »einheitliches  digitales 
Übertragungsnetz«  (ISDN).  Dieses 
Netzwerk  vereinheitlicht  alle  Dien¬ 
ste  der  Post  in  einem  Übertragungs¬ 
netz,  das  heißt  sowohl  Sprache  als 
auch  Datenübertragung  jeder  Art 
(Daten,  Texte,  digitalisierte  Bilder 
etc.)  werden  über  ein  Netz  vermit¬ 
telt.  Dieses  Netz  soll  bereits  1987  ver¬ 
fügbar  sein.  Dann  soll  vom  ISDN 
zum  IBFN  (integriertes  breitbandi¬ 
ges  Fernmelde-Netz)  allmählich 
übergegangen  werden.  Das  IBFN 
unterscheidet  sich  vom  ISDN  im 
Prinzip  nur  durch  die  Übertra¬ 
gungsmedien.  Daten  werden  dann 
über  Glasfaser  und  Satelliten  über¬ 
tragen.  Ein  Anschluß  zu  einem  Netz¬ 
werk  wird  so  alltäglich,  wie  das  heu¬ 
tige  Telefonnetz.  Das  64'er-Magazin 
wird  Sie  mit  der  Serie  »Aktuelles  aus 
der  Datenfernübertragung«  stets 
auf  dem  Laufenden  halten. 

Es  ist  mir  leider  nicht  gelungen, 
Adressen  von  C  64-User-Clubs  zu 
bekommen,  die  sich  hauptsächlich 
mit  Datenfernübertragung  beschäf¬ 
tigen.  Es  existieren  nur  vereinzelt 
ein  paar  »Hacker«,  die  den  C  64  flei¬ 
ßig  beanspruchen.  Wer  Lust  hat,  ei¬ 
nen  solchen  zu  gründen,  kann  mir 
schreiben,  oder  mir  eine  Nachricht 
im  RMI-Net  hinterlassen.  Ich  werde 
dann  ein  solches  Vorhaben  nach 
meinen  Kräften  unterstützen. 

(Thomas  Obermair/aa) 


Literaturliste  zum  Thema 

MC-Modem  Sonderheft  Franzis  Verlag,  Preis  16  Mark. 

Dieses  Sonderheft  enthält  alles  Wissenswerte  über  Mo¬ 
dems,  Schnittstellen  etc.  Etwas  zu  teuer,  aber  es  gibt  nichts 
Vergleichbares,  was  billiger  ist. 

Elektronik-Sonderheft  »Datenkommunikation«  Franzis  Ver¬ 
lag,  18  Mark. 

Ein  vom  Informationsgehalt  sehr  hochwertiges  Heft  mit 
Fachbeiträgen  von  kompetenten  Autoren.  Fast  zu  kompliziert 
für  den  Laien,  viel  Theorie 
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Data-Becker 
Bücher  zum 
Commodore  64 


Es  sollen  hier  drei  Bücher 
aus  der  Data-Becker  Sach¬ 
buchreihe  zum  C  64,  die  mitt¬ 
lerweile  auf  19  Titel  ange¬ 
schwollen  ist,  besprochen 
werden. 

Zunächst  zum  »64  intern«, 
dem  teuersten  der  vorge¬ 
stellten  Bücher.  Die  größte 
Leistung  dieses  Buches  ist 
das  ausreichend  kommen¬ 
tierte  ROM-Listing,  das  fol¬ 
gerichtig  auch  den  meisten 
Raum  in  Anspruch  nimmt. 
Außerdem  enthält  das  Buch 
noch  Kapitel  über  den  tech¬ 
nischen  Aufbau  des  C  64,  so¬ 
wie  über  Grafik-  und  Musik¬ 
programmierung,  die  bei¬ 
den  letzteren  sind  allerdings 
arg  dürftig  ausgefallen.  Da¬ 
für  gibt  es  dann  eigene  Bü¬ 
cher. 

»64  intern«  soll  das  Arbei¬ 
ten  mit  dem  C  64  erleichtern. 
Dieses  Ziel  wird  jedoch  nur 
dann  erreicht,  wenn  der  Le¬ 
ser  schon  einige  Grund¬ 
kenntnisse  der  Maschinen¬ 
programmierung  besitzt, 
und  weiß,  was  er  mit  den  ge¬ 
botenen  Informationen  an¬ 
fangen  kann.  Wer  mehr  über 
die  Programmierung  von  Ba¬ 
sic  aus  wissen  will,  ist  mit  an¬ 
deren  Büchern  mit  Sicher¬ 
heit  besser  bedient. 

In  Verbindung  mit  ande¬ 
ren  Büchern  ist  »64  intern« 
mit  Sicherheit  eine  wertvolle 
Hilfe  für  erfahrenere  C  64- 
Benutzer. 

»Das  Trainingsbuch  zum  Si¬ 
mons  Basic«  ist  mit  fast  400 
Seiten  das  umfangreichste 
der  Reihe.  Sinnvoll  angewen¬ 
det  werden  kann  es  logi¬ 


scherweise  nur  von  Besit¬ 
zern  dieser  Basic-Erweite- 
rung.  Alle  Besitzer  von  Si¬ 
mons  Basic  jedoch  haben 
Grund  zur  Freude.  Das  Buch 
geht  weit  über  das  hinaus, 
was  das  eher  spartanisch 
knappe  Originalhandbuch 
an  Informationen  und  Ar¬ 
beitshinweisen  gibt.  Die  Bei¬ 
spiele  demonstrieren  recht 
eindrucksvoll  die  Möglich¬ 
keiten  dieser  Basic-Erwei- 
terung,  aber  auch  ihr  Unver¬ 
mögen,  bestimmte  Dinge  zu 
tun.  Ein  recht  neutrales  Sach¬ 
buch,  das  für  den  Besitzer 
von  Simons  Basic  eine  gute 
Hilfe  beim  Programmieren 
ist. 

64€sR 

»Der  C  64  und  der  Rest  der 
Welt«.  Dieses  Buch  gehört, 
wie  auch  »Das  Grafikbuch 
zum  C  64«,  zur  neuen  Gene¬ 
ration  der  Data-Becker  Bü¬ 
cher.  Ein  Teilaspekt  des 
Computers  wird  herausge¬ 
griffen  und  zum  Thema  eines 
Buches  gemacht.  Bei  der 
Vielfalt  der  Möglichkeiten 
des  C  64  erscheint  dieses 
Vorgehen  auch  sinnvoll,  die 
Frage  ist  nur,  ob  das  einzelne 
Buch  dann  auch  alle  Ansprü¬ 
che  erfüllt. 

Im  vorliegenden  Buch 
wird  eine  ganze  Reihe  von 
Zusatzschaltungen  für  den  C 
64  vorgestellt,  die  mit  relativ 
wenig  Aufwand  selbst  her¬ 
gestellt  werden  können.  Die 
Palette  reicht  von  der  einfa¬ 
chen  Leuchtdiodenansteue- 
rung,  über  ein  EPROM-Pro- 
grammiergerät,  bis  hin  zu  ei¬ 
ner  einfachen  Sprachein- 
und  -ausgabe. 

Die  vorgestellten  Schaltun¬ 
gen  stellen  zwar  nicht  immer 
die  beste  Lösung  des  Pro¬ 
blems  dar,  lassen  aber  dafür 
einigen  Spielraum  für  eige¬ 
ne  Ideen.  Zu  jeder  Hardwa¬ 
re-Erweiterung  gehört  natür¬ 
lich  auch  die  Treibersoftwa¬ 
re.  Hier  zeigt  das  Buch  deutli¬ 


che  Schwächen,  denn  die  Er¬ 
klärungen  zur  Ein/Ausgabe¬ 
steuerung  sind  eher  dürftig, 
so  daß  es  dem  weniger  ver¬ 
sierten  Benutzer  manchmal 
recht  schwer  fallen  dürfte, 
das  Behandelte  nachzuvoll¬ 
ziehen.  Es  sei  auch  dahinge¬ 
stellt,  ob  es  sinnvoll  ist,  den  C 
64  in  ein  Digitalthermometer 
umzubauen;  für  diese  und 
ähnliche  Anwendungen 
scheint  er  mir  doch  zwei 
Nummern  zu  groß  zu  sein. 

Es  braucht  wohl  nicht  dar¬ 
auf  hingewiesen  werden, 
daß  das  Buch  nur  für  den 
sinnvoll  ist,  der  weiß,  an  wel¬ 
chem  Ende  ein  Lötkolben 
heiß  wird... 

(Reinhard  Schrutzki) 

Info:  1.  Angerhausen/Brückmann/Eng- 
lisch/Gerits,  64  Intern.  Data  Becker  1983. 
320  Seiten.  ISBN  3-89011-000-2,  69  Mark 

2.  Plenge/Szczepanowski,  Das  Trainmgs- 
buch  zum  Simons  Basic,  Data  Becker  1983, 
380  Seiten,  ISBN  3-89011-009-6,  49  Mark. 

3.  Brückmann,  Der  Commodore  64  und  der 
Rest  der  Welt,  Data  Becker  1984,  230Seiten. 
ISBN  3-89011-015-0,  49  Mark. 


Programmierung 
des  6502 
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Dieses  Buch  von  Rodney 
Zaks,  welches  man  bereits  zu 
den  Klassikern  der  Bücher 
zum  6502-Mikroprozessor 
zählen  kann,  nimmt  für  sich 
in  Anspruch,  ein  »vollständi¬ 
ger  und  in  sich  abgeschlos¬ 
sener  Text  zum  Erlernen  des 
Programmierens  mit  dem 
6502-Prozessor«  zu  sein.  Die¬ 
ser  Prozessor  befindet  sich 
im  LV  20  und,  in  einer  kompa¬ 
tiblen  Form  (dem  6510),  im  C 
64. 

Um  das  Ergebnis  der  Prü¬ 
fung  vorwegzunehmen:  Ein 
Lehrbuch  zum  Erlernen  der 
Programmierung  dieses  Mi¬ 
kroprozessors  ist  das  Buch 
meiner  Meinung  nach  nicht. 
Schon  gar  nicht,  wenn  man 
über  keine  Programmier¬ 
kenntnisse  verfügt,  was  im 
Vorwort  als  möglich  bezeich¬ 
net  wird. 

Doch  bevor  ich  schreibe, 
was  mir  nicht  gefallen  hat, 
möchte  ich  zuerst  einmal  die 
Vorzüge  des  Buches  aus  mei¬ 
ner  Sicht  schildern.  Der 
größte  Pluspunkt  des  Bu¬ 
ches  ist  für  mich  das  4.  Kapi¬ 
tel,  in  welchem  auf  etwa  80 
Seiten  der  gesamte 
6502-Befehlssatz  erläutert 
wird.  Dabei  ist  jedem  Befehl 


knapp  eine  Seite  gewidmet 
worden,  auf  welcher  sich  die 
jeweilige  Funktion,  das  For¬ 
mat  und  eine  Beschreibung 
des  Befehles  findet.  Darüber 
hinaus  werden  grafisch  die 
Datenwege,  die  möglichen 
Adressierungsarten  und  die 
Beeinflussung  der  verschie¬ 
denen  Flaggen  dargestellt. 
Dieses  und  drei  benachbar¬ 
te  Kapitel  (grundlegende 

Programmiertechniken; 
Adressierungsarten  und  An¬ 
wendungsbeispiele)  ma¬ 
chen  das  Buch  zu  dem,  was 
es  für  mich  geworden  ist, 
nämlich  zu  einem  wertvollen 
Nachschlagewerk  bei  der 
Programmierung  in  der  As¬ 
semblersprache. 

Dem  Anspruch,  ein  Lehr¬ 
buch  zu  sein,  wird  das  Buch 
jedoch  leider  weder  durch 
eine  einführende,  erklären¬ 
de  Sprache,  noch  durch  ei¬ 
nen  besonderen  didakti¬ 
schen  Aufbau  gerecht.  Nur 
die  eingestreuten  Übungs¬ 
aufgaben  (deren  Lösungen 
ich  im  Anhang  vergeblich 
suchte),  deuten  darauf  hin, 
daß  das  Buch  zum  Erlernen 
eines  Sachverhaltes  geeig¬ 
net  sein  soll.  Auch  im  Buch 
vorhandene,  aber  für  den 
Anfänger  unwichtige,  ja  ab¬ 
schreckende  Kapitel  (Hard¬ 
ware-Organisation  des  6502; 
Ein-  und  Ausgabetechniken; 
I/O-Bausteine)  machen  die¬ 
ses  Werk  als  Lehrbuch  für 
mich  ungeeignet. 

Zusammenfassend  möch¬ 
te  ich  sagen,  daß  dieses 
Buch  aufgrund  der  oben  er¬ 
wähnten  Vorteile,  der  schö¬ 
nen,  übersichtlichen  Dar¬ 
stellung  der  vorhandenen 
Informationen,  des  ausführli¬ 
chen  Registers  und  nicht  zu¬ 
letzt  auch  wegen  seines  sau¬ 
beren  Druckes  und  der  gu¬ 
ten  Verarbeitung  ein  wichti¬ 
ges  Arbeitsbuch  für  den  fort¬ 
geschrittenen  Assembler¬ 
programmierer  sein  kann. 
Dafür  erscheint  der  Preis, 
unter  Berücksichtigung  der 
Preise  vergleichbarer  Bü¬ 
cher  angemessen.  Als  Lehr¬ 
buch  zum  Einarbeiten  in  die 
Assemblersprache,  insbe¬ 
sondere  für  Anfänger  ohne 

Programmierkenntnisse, 
kann  ich  dieses  Buch  aller¬ 
dings  nicht  uneingeschränkt 
weiterempfehlen. 

(Wolfgang  Willing) 

Info:  Rodney  Zaks,  Programmierung  des 
6S02,  Sybex-Veriag,  400  Seiten, 

ISBN  3-88745-011-6,  44  Mark 
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Listing  des  Monats 


C  64 


HYPRA-IDAD: 
Schnelles 
Laden 
von 
Diskette 


Spontane  Begeisterung  und  Zustimmung  erhielten  die  beiden  Autoren 
des  folgenden  Programms.  Ein  bis  zu  sechsmal  schnelleres  Laden  von 
Programmen  von  der  VC  1541  hatte  uns  bisher  noch  niemand  angeboten. 
Wir  meinen,  ein  echter  ^  Knüller,  der  es  ganz  bestimmt 

venlient,  Listing  des  WG-si-'  Monats  zu  werden. 


B  isherige  Versuche,  die  VC  1541 
schneller  zu  machen,  scheiter¬ 
ten  fast  alle.  C  64-Besitzer  hatten 
lediglich  die  Möglichkeit,  mittels  ei¬ 
ner  zusätzlichen  IEEE-Schnittstelle 
eine  der  größeren  Floppys  (4040, 
8250,  etc.)  anzuschließen.  Viele  wä¬ 
ren  der  Meinung,  daß  die  serielle 
Datenübertragung  vom  C  64  an  die 
VC  1541  schuld  an  deren  Trägheit 
hatte.  Was  natürlich  nicht  ganz  stim¬ 
men  kann.  Denn  es  gibt  serielle 
Schnittstellen,  die  mehr  als  12000 
Baud  (=  Bit  pro  Sekunde)  übertra¬ 
gen.  Somit  war  klar,  daß  nicht  die  se¬ 
rielle  Übertragung,  sondern  eher 
das  DOS  (Disk  Operating  System), 
die  interne  Software  der  Floppy,  der 
große  Hemmschuh  sein  mußte.  Und 
in  der  Tat,  wenn  Sie  in  der  Ausgabe 
9/84  des  64 ’er  Magazins  auf  Seite  10 
die  Aktuell-Meldung  über  eine 
neue  Alternat iv-Floppy  gelesen  ha¬ 
ben,  konnten  Sie  erfahren,  daß  le¬ 
diglich  das  kompatible  DOS  die 
mögliche  Geschwindigkeit  des 
TEAC-Laufwerkes  stark  ein- 
schränkte.  Und  hier  setzten  die  bei¬ 
den  Autoren  mit  ihrer  Arbeit  an.  (gk) 

Lostinn  und  Pc-sgraimcbcnebreibungfiacien  Sie  saf  Seite  77 
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Zusammenarbeit  und  Ehr¬ 
geiz  werden  mit  2000 
Mark  belohnt 

Ich,  Boris  Schneider,  wurde  am 
5.7.66  in  Grevenbroich  (zirka  20  km 
südwestlich  von  Düsseldorf)  gebo¬ 
ren. 

Genau  10  Jahre  später  erhielt  ich 
meinen  ersten  Taschenrechner.  Um 
1978/79  hatte  ich  meine  ersten  Kon¬ 
takte  mit  einem  »richtigen«  Compu¬ 
ter:  einem  PET  2001,  den  mein  Vater 
manchmal  mit  nach  Hause  brachte. 

1980  erfolgte  dann  der  Umzug 
nach  Bayern;  hier  besuche  ich  das 
Gymnasium  Vaterstetten,  wo  ich  un¬ 
ter  anderem  auch  Karsten  Schramm 
kennenlernte,  der  sich  nun  ebenfalls 
kurz  vorstellt: 


Meine  Geschichte  begann  am 
1.3.66  in  München. 

Ich  besuche  zur  Zeit  ebenfalls  das 
Gymnasium  Vaterstetten,  wo  Boris 
und  ich  nächstes  Jahr  das  Abitur  ma¬ 
chen  wellen. 

Mit  14  Jahren  kam  ich  das  erste 
Mal  mit  Computern  in  Kontakt,  wo¬ 
bei  ich  prompt  vom  »Fieber«  ange¬ 
steckt  wurde,  so  daß  meine  Eltern 
ernstlich  um  meine  Zurechnungsfä¬ 
higkeit  besorgt  sein  mußten. 

Meine  Krankheit  klang  zum  Glück 
schon  nach  einem  Jahr  ab,  doch  das 
Hobby  blieb,  und  so  besitze  ich  seit 
einem  halben  Jahr  einen  C  64,  nach¬ 
dem  ich  zuvor  in  der  Schule  auf 
CBM-Computern  gearbeitet  hatte. 

Wir  (Boris  und  ich)  teilen  uns  die 
Leidenschaft,  in  Maschinensprache 
zu  programmieren  und  dem  Com¬ 
puter  die  letzten  Geheimnisse  zu 
entlocken! 


Boris  Oliver  Schneider,  Sudeten¬ 
straße  46,  8018  Grafing, 

Tel.  08092/6872. 

Karsten  Oliver  Schramm,  Herzog- 
Stephan-Weg  33,  8011  Zorneding, 
Tel  08106/20252 
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Anwendung  des  Monats 


Zwei  heraus¬ 
ragende  Eigen¬ 
schaften 
machen  dieses 
Programm  für  alle 
C  64-Besitzer 
interessant:  Die 
sehr  gute 
Menütechnik  und 
der  modulare 
Bildschirmmasken¬ 
aufbau. 


Wer  wünscht  sich  nicht, 
daß  Programme  von  Dis¬ 
kette  auf  Tastendruck  gela¬ 
den,  beziehungsweise  nach¬ 
geladen  werden?  Wenn  Sie 
das  Menüprogramm  dieses 
Listings  übernehmen  und  für 
Ihren  Bedarf  abändern,  ist 
das  Laden  von  Programmen 
kein  Problem  mehr. 

Das  Programm  wird  gela¬ 
den  mit  dem  Befehl: 

LOAD  "Menü”  ,8 
Gestartet  wird  dann  mit  dem 
Befehl:  RUN 

Wählen  Sie  nun  mit  den 
Funktionstasten  F3  und  F5 
die  Nummer  des  Program¬ 
mes,  mit  welchem  Sie  als 
nächstes  arbeiten  wollen. 
Sie  erkennen  Ihre  augen¬ 
blickliche  Position  an  der 
blinkenden  Zahl. 


Nach  beendeter  Wahl 
drücken  Sie  »RETURN«. 
Dann  wird  das  Programm 
geladen,  dessen  Zahl  gera¬ 
de  blinkt  und  an  der  sich 
nach  »RETURN«  ein  -  (Pfeil 
links)  befindet. 
Bedienungsanleitung  für 
das  Programm: 

Erstellen  eines  Tügungs- 
planes. 

Nach  erfolgter  Auswahl  im 
Hauptmenü  wird  das  Pro¬ 
gramm  automatisch  gestar¬ 
tet. 

Durch  entsprechende  In¬ 
formationen  in  der  Fußzeüe 
erklärt  sich  das  Programm 
im  wesentlichen  selbst.  Al¬ 
lerdings  mußte  manchmal 
wegen  Platzmangel  darauf 
verzichtet  werden. 
Grundsätzlich  gilt: 

—  Bis  auf  die  Funktionstasten 
erfolgt  bei  jeder  Eingabe 
und  Auswahl  ein  Abschluß 
mit  »RETURN«. 

—  Bei  der  Auswahl  im  Pro¬ 
gramm,  wird  immer  mit  den 
Tasten  F3  und  F5  gewählt, 
nach  Drücken  von  »RE¬ 
TURN«  wird  immer  das  als 
nächstes  ausgeführt,  was  zu¬ 
letzt  geblinkt  hat. 

—  Zum  Abschluß  der  Daten¬ 
eingabe  gilt  für  die  Abfrage, 
ob  die  Eingabe  korrekt  ist, 
folgendes: 

a)  Zugelassen  sind  die  Buch¬ 
staben  j  (ja)  und  n  (nein). 

b)  Die  Antwort  kann  bis  zum 
Abschluß  mit  »RETURN« 
durch  die  Taste  »DEL«  korri 
giert  werden. 

—  Während  der  Dateneinga¬ 
be,  kann  man  durch  Drücken 
der  Taste  Fl  zum  ersten  Aus¬ 
wahlmenü  zurückkehren. 

—  Wird  die  Tabelle  auf  dem 
Bildschirm  ausgedruckt, 
kann  man  den  Bildschirm¬ 
ausschnitt,  innerhalb  der 
festgesetzten  Grenzen  ver¬ 
ändern. 


Klaus  Klöker  der  Autor 
des  Programms 
»Finanzmathematik« 


Mit  Fl  kehrt  man  zur  al¬ 
ten  Bildschirmmaske  zurück. 

Das  Ausgabefeld  »Resul¬ 
tat«  enthält  folgende  Infor¬ 
mationen: 

Zinsaufwand  (gesamt): 
Dieser  Summe  entsprechen 
sämtliche  in  den  einzelnen 
Jahren  zu  zahlende  Zinsen. 


—  Annuität 
samt):  Dies  ist  die  Summe, 
die  man  insgesamt  zurück¬ 
zahlen  muß  (Zins-  und  Til¬ 
gungsanteil  zusammen), 

Im  linken  unteren  Feld 
wird  noch  einmal  angege- 


200  -  260: 

Programmdokumentation:  Menü 

Aufbau  der  Bildschirmmaske 

300  -  390: 

Auswahlroutine  durch  Betätigen  der 

400  -  410: 

Funktionstasten 

Sprung  in  die  Zeile,  in  der  das  entspre- 

900  -  960: 

chende  Programm  geladen,  oder  in  der 
das  Programm  beendet  wird 

Festlegung  der  Variablen 

na$  (...)  = 

Variablenliste:  Menü 

Nummern  der  Programme 

nb$  (...)  = 

Namen  der  Programme 

*7  — 

Zeile 

Q  — 

Spalte 

Y  = 

Index  der  indizierten  Variablen 

g$  = 

Eingabevariable  der  get-Anweisung 

10-30 

Programmdokumentation:  Zinsrechnung 

Unterprogramm  zum  Löschen  des  rech- 

70-75 

ten  oberen  und  linken  unteren  Bild¬ 
schirmfensters 

Unterprogramm  zur  Rundung  der  Ergeb- 

80 

nisse  und  zur  Umwandlung  in  einen 

String 

Unterprogramm  zum  Laden  des  Menüs 

90 

Unterprogramm  zum  Setzen  des  Cursors, 

95 

an  die  Stelle,  welche  mit  Z  =  Zeile  und  S 
=  Spalte  vor  dem  Sprungbefehl  festge¬ 
legt  wurde 

Unterprogramm  zum  Zeichnen  einer  Li- 

100  -  195 

nie 

Äuswahlroutine  mit  den  Funktionstasten 

200  -  290 

der  entsprechenden  reversen  Felder 
oben  links  und  unten  links. 

Auswahlroutine  mit  den  Funktionstasten 

300  -  480 

der  Fußzeile. 

Eingaberoutine 

1000  -  1180 

Beginn  des  Hauptprogramms: 

2000  -  2140 

—  Aufbau  der  Bildschirmmaske 

—  Sprung  in  die  Auswahlroutine,  um  fest¬ 
zulegen,  was  berechnet  werden  soll. 
Aufbau  der  Eingabemaske  und  Eingabe 

3000  -  3040 

der  Daten  mittels  der  Eingaberoutine. 
Anschließend  erfolgt  Abfrage,  ob  die 
Eingabe  korrekt  ist. 

Berechnung  des  vorher  ausgewählten 

3500  -  3610 

Ergebnisses 

Ausdruck  des  Ergebnisses.  Es  werden 

ausgedruckt: 

—  die  am  Anfang  festgelegten  Kriterien 

—  die  eingegebenen  Daten 

—  das  Endergebnis 
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ben,  wie  hoch  der  Zinsanteil 
von  der  Annuität  in  Prozent 
ist.  Dieses  Programm  stellt 
Tilgungspläne  bis  zu  einer 
Laufzeit  von  60  Jahren  auf. 
Falls  dies  nicht  ausreicht, 
braucht  in  Zeile  neun  nur  die 
Dimensionierung  der  Varia¬ 
blen  e  und  e$  erhöht  wer¬ 
den.  (Klaus  Klöker/rg) 


Lebenslauf 


Ich  bin  20  Jahre  alt,  habe 
im  Frühjahr  dieses  Jahres 


mein  Abitur  bestanden  und 
im  August  eine  Ausbildung 
als  Bankkaufmann  begon¬ 
nen. 

In  meiner  Freizeit  beschäf¬ 
tige  ich  mich  gerne  mit  Ge¬ 
schichte  und  der  Computer¬ 
programmierung. 

Entstanden  ist  das  Pro¬ 
gramm  aufgrund  eines  Kur¬ 
ses  über  Finanzmathematik. 

Es  schien  mir  damals 
zweckmäßig,  Tilgungspläne 
mit  dem  Computer  aufzustel¬ 
len.  Dieser  absolviert  seine 
Arbeit  sekundenschnell  und 
fehlerfrei.  Wer  selbst  einmal 


Tilgung  »zu  Fuß«  geplant  hat, 
weiß,  daß  gerade  letzteres 
keine  Selbstverständlichkeit 


Entstehungsge¬ 
schichte  und 
Anwendung 

ist  (bei  20  J ahren  Laufzeit  und 
6  Beträgen  pro  Jahr,  müssen 
immerhin  120  Beträge  ein¬ 
zeln  berechnet  werden). 

Einen  großen  Teil  der  Pro¬ 
grammierzeit  beanspruchte 


der  Aufbau  der  Bildschirm¬ 
masken  und  die  Menüsteue¬ 
rung.  Ich  hielt  diesen  Auf¬ 
wand  für  angebracht,  weil 
die  Anwendung  bequemer 
ist  und  außerdem  mehr  Spaß 
macht.  Wer  sich  das  Pro¬ 
gramm  »Tilgungspläne«  ge¬ 
nauer  anschaut,  wird  fest¬ 
stellen,  daß  man  durch  einfa¬ 
ches  Austauschen  der  For¬ 
meln  verschiedene  Tabellen 
aufstellen  kann,  obwohl  nur 
eine  begrenzte  Zahl  von  Ein¬ 
gabekriterien  notwendig  ist. 

(Klaus  Klöker) 


ma$: 

mb$,  mc$,  md$: 
a$  (...): 
ka$;  p$;  zi$ 
ja$;  mo$;  ta$ 
pm$;  pu$: 

Z: 

S: 

ZI: 

Z2: 

Y: 

Yl: 

Y2: 

SW: 
k;  c: 

f: 

e: 

h: 

in$: 

ab$: 

10-20 

30-55 

70 

80 

90 

95 

100  -  195 


200  -  290 

300  -  480 

900  -  960 
1010  -  1080 

2000  -  2140 


Es  folgt:  Aufbau  der  Fußzeile  mit  der 
Möglichkeit  durch  Wahl  mit  den  Funk¬ 
tionstasten  entsprechend  zu  verzweigen. 

Variablenliste:  Zinsrechnung 

Kopfzeile 

Fußzeilen  3000  -  3720 

Eingabekriterien 


Ein-  und  Ausgabekriterien 
Punkte  in  der  Eingabemaske 
Zeile  der  Cursorposition 
Spalte  der  Cursorposition 
niedrigste  Zeile,  die  gelöscht  werden 
soll 

höchste  Zeile,  die  gelöscht  werden  soll 

Vaxiablenindex 

kleinster  Index 

größter  Index 

Schrittweite 

Konstanten,  die,  je  nach  ihrer  Wertigkeit, 
bestimmte  Vorgaben  ausführen, 
gibt  an,  welche  Berechnung  erfolgen 
soll 

gibt  an,  die  Art  der  Laufzeit 
legt  die  Art  der  Laufzeit  in  der  Berech¬ 
nung  fest 

Variable  in  der  Eingaberoutine 
Endergebnis 

Programmdokumentation:  Tilgungsrechnung 

Unterroutine  zum  Löschen  der  rechten 
Bildschirmhälfte 


3800  -  3900 
3910  -  3950 

4000  -  4590 

•i* 


5000  -  5090 
5500  -  5660 

6000  -  6500 

ma$ 

mb$ 

mc$ 

me$ 

mf$ 

mh$ 

md$ 

Z: 

S: 

Y: 


Unterroutine  zum  Runden  des  Ergebnis-  Yl: 

ses  und  zum  Umwandeln  in  einen  String  Y2: 

Unterroutine  zum  Laden  des  Menüs  Sw: 

Unterroutine  zum  Zeichen  einer  Linie  g$: 

Unterroutine  zur  Festlegung  der  Cursor-  g: 

Position  i,j: 

Unterroutine  zum  Löschen  der  Fußzeile 


Unterroutine  zur  Auswahl  der  vorgege-  c: 

benen  Möglichkeiten  mit  den  Tasten  F3 
und  F5,  der  Abschluß  erfolgt  mit  »RE-  f: 

TURN«.  h: 


Unterroutine  zur  Auswahl  bei  der  Fußzei-  in$: 

le  mit  den  Tasten  F3  und  F5,  der  Ab-  pns: 

Schluß  erfolgt  mit  »RETURN«.  is: 

Eingaberoutine.  Durch  Drücken  der  Ta-  tb$: 

ste  Fl  kann  man  von  vorne  beginnen  ta$: 

Aufbau  der  Bildschirmmaske  XI: 

Ausdruck  der  Kopfzeile  und  Bildschirm¬ 
maske,  Sprung  in  die  Auswahlroutine  X2: 

(100-195) 

Aufbau  der  Eingabemaske  und  Sprung 


in  die  Eingaberoutine.  Zum  Schluß  wird 
abgefragt,  ob  die  Eingabe  korrekt  ist. 
Die  Antwort  wird  mit  »RETURN«  einge¬ 
geben  und  kann  vorher  mit  »DEL«  korri¬ 
giert  werden. 

Ausführung  der  Rechnung  mit  Sprung  in 
die  Rundungs-  und  Stringumwandlungs¬ 
routine 

Ausdruck  des  Resultates  auf  dem  Bild¬ 
schirm 

Aufbau  der  Wahlfußzeile  und  Sprung  in 
die  Auswahlroutine  (200-290) 

Ausdruck  der  Tabelle  und  Verändern 
des  Bildschirmausdrucks  mit  den  Cur¬ 
sortasten:  Mit  Fl  erfolgt  ein  Rücksprung 
Änderung  der  eingegebenen  Daten 
Papierausdruck  der  eingegebenen  Da¬ 
ten  und  der  Tabelle 
Festlegung  der  Variablen 
Variablenliste:  Tilgungsrechnung 
Kopfzeile 


Fußzeilen 


Löschzeile  zum  Löschen  des  Bildschirms 
Zeile  der  Cursorposition 
Spalte  der  Cursorposition 
Variablenindex,  der  einfach  dimensio¬ 
nierten  Variablen 
niedrigster  Variablenindex 
höchster  Variablenindex 
Schriftweite 

Variable  der  GET-Anweisung 
ASC  (g$) 

Variablenindizes  der  zweifach  dimensio¬ 
nierten  Variablen 

Konstante,  von  der  bestimmte  Bedingun¬ 
gen  abhängen 

gibt  das  Ergebnis  der  Auswahlroutine  an 
beschränkt  die  maximale  Eingabelänge 
Variablenindex 

füllt  den  Ergebnisstring  mit  Punkten  auf 
gibt  das  Jahr  in  der  Tabelle  an 
chr$(16):  Tabulator 
chr$(10):  Leerzeile 

Variable  die  den  kleinsten  Index  der  Ta¬ 
belle  angibt 

Variable  die  den  größten  Index  der  Ta¬ 
belle  angibt 

Variablen  der  Rechnung  tl,t2J2,rl,al,Zl,Z2 
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70  REM  BY  KLAUS  KLOEKER 
SB  GOTO 1 BE 

90  P0KE2 1 4 , Z : P0KE2 1 1 ,S: SYS58732: RETURN 
100  REM  *  MENUE  * 

110  PR  I  NT  "LH"  :  PÜKE532B0 , 0 :  PGKE532S 1 , 0 :  PO 
KE53272 , 23 : P0KE788 , 52 : GOSUB900 
200  PR  INT  "lg  -  >  /  £  /  ♦  \  *  |  i  ”  \  4 

->  ■" 

210  2=4  = S=6 : GGSUB90 : PR I NT " \ENUE  :  "  : Z=5 : G 
OSUB90  SPRINT" - " 

220  Z=7 : S=3 : Y= 1 : FOR I = 1 TD5 : GGSUB93 : PR I NT N 
AT  ( I )  ;  NET-  ( I ) 

233  Z=Z+2:Y=Y+1:NEXT 

243  Z=1B: GOSUB90: PRINT"®  S  OAEHLEN 

91 E  MIT  |g  -3  B  UND  iß  -5  H  i  " 

253  Z=2E: S=7: GQSUB9 0 : PR I NT " —RUECKEN  *IE 
DANN  '  _“!  '  !  " 

260  2=23:  S=0:  GOSUB90:  pp  tmt  ««._■_ . , ,  „ 

300  REM  *  AUSWAHLROUTINE  * 

310  Z=7: Y=1 

323  GOSUB90:PRINT"ia  SJ"  :  F0RI  =  1T075:  NE 

XT 

333  PR  I NT "C3"  ;  NAT  ( Y )  :  FOR  1  =  1  TO  125:  NEXT 
343  GETGT :  I FGT<  >CHRT  (134)  ANDGT-C  >CHRT  ( 1 35 
)  ANDGT<  >CHRT-  (13)  THEN320 

353  IFGT=CHRT  <  13)  THENSOSUB90 :  PR I NT "|jg>gj"  ; 

: GOTO400 

355  I FGT=CHRT (135) THEN380 

360  Z=Z+2:Y=Y+1: IFZ>15THENZ=7: Y=1 

370  GOT 0323 

383  Z=Z-2: Y=Y— 1: IFZ<7THENZ=15: Y=5 
390  GOT 0320 

400  ONYGOTO500 ,510, 520 , 530 , 540 
413  END 

5B0  LOADNBT ( 1 ) ,8 
510  LOADNBT (2)  ,8 
523  LOADNBT (3) ,8 
530  LOADNBT (4) ,8 

543  PR I  NT " L" : P0KE53272 ,21: P0KE788 , 49 : END 
900  REM  *  VARIABLEN  * 

910  NA$(1)="B-  1  ~m  "  :NA$(2)="[S-  2  -B  " : 
NAT  (3)  =  "|g—  3  -m  " 

920  NAT  (4)  =  "Üä-  4  -B  "  :  NAT  (5)  =  "lS3—  5  -«  " 
933  NBT-  ( 1 )  =  "  ♦  I NSRECHNUNG  ”  :  NBT  ( 2 )  =  "  41 NSES 
ZINSRECHNUNG" 

940  NBT (3)="-ISK0NTIEREN  EINES  KAPITALS" 
953  NBT ( 4 )  =  " ~ RSTELLEN  EINES  |  ILGUNGSPLAE 
NES" : NBT (5) =" “ROSRAMMENDE" 

960  RETURN 
READY. 

Listing  »Menüprogramm« 


7  PGKE45 , PEEK ( 1 74 ) : PÜKE46  T PEEK <175): CLR 

8  REM  BY  KLAUS  KLOEKER 

9  CLR : D I MAT  <15;  , A ( 15 ) : GOTO 1 330 

10  Zl=3: 22=9: 5=13: REM  *  MASKE  LOESCHEN  * 
20  FDRZ=Z1TQZ2: 50SUB93: PRINT" 

:  NEXT:  I FC-0THENRETURN 
30  11=12: 22=20 : C=3 : GOTO20 
50  RETURN 

20  AT (12) =STRT ( INT  C A  < 12) *  1 00+ .  5 ) ) : REM  * 
RUNDEN 

75  ABT=LEFTT ( AT (12) ,LEN (AT ( 12) ) -2) +" . "+R 
I GHTT ( AT ( 12) , 2) : RETURN 
80  LOAD "MENUE" ,8: REM  *LGAD  MENUE 
93  PQKE2 14,2: P0KE2 I 1 , S : 3YS5S732 : RETURN : R 
EM  *  CURSORPOSITION 

95  A=55869 : FOR I  =  1 597T0 1622: POKE 1,100: POK 


EA , 1 : A=A+ 1 : NEXT :  RETURN 
IBS  REM  *  AUSWAHLROUTINE  * 

1 1 0  GOSUB90 : PR I NT " &  «"  : FOR I  =  1 T 

G75: NEXTI 

1 28  6QSUB90 :  PR  INT" IS”  AT-  <  Y )  " « "  :  FOR I  =  1  TO  1 25 
:  NEXT 

1 38  GETGT :  I  FGT<  >CHRT  (133)  ANDGT-<  >CHRT-  ( 1 34 
) ANDBTi >CHRT ( 135) ANDBT1 >CRR$ (13) THEN1 10 
1 43  I  FST=CHRT-  (133)  ANDCTHENC=0  s  RETURN 
1 53  I FGT =CRRT  (13)  THENGOSUB9B  :  PR I NT  " g>B"  : 
RETURN 

1 62  I  FGT  =2 :  -iRT  (  1 35 )  THEiM  1 93 

170  Z  =  Z+SWi Y=Y+l ; IFZ >22THENZ=Z 1 : Y=Y 1 

153  GOTO! 13 

19-3  Z=Z— SW:  Y=Y-1:  IFZ<Z1TH£NZ=Z2:  Y=Y2 
195  GOTO 1 13 

233  REM  *  WAHL— FUSSZEILE  *:S=S 
2 1 0  2=23 :  SOSUB9 0 :  PR  I  NT  "  ’.L  B"  ;  :  FQ 

R 1=1 TG75: NEXT 

223  SGSUB90 : PR I NT " W' BAT < Y  > " ■" ;  : FOR I  =  1 TO 1 
75: NEXT 

230  GETGT : I FST< >CHRT ( 1 34 > ANDGTC  >CHRT ( 1 35 
) ANDGT<  >CHRT (13) THEN2 1 0 

243  I FGT=CHRT (13) THENSQSUB90 :  PR I NT " ag>B" : 

: RETURN 

253  I FGT=CHRT ( 1 35  > THEN233 

260  S=S410: Y=Y+ls IFS>31THENS=0: Y=1 

273  SGTG210 

280  S=S- i 0 : Y=Y- 1 : I FS< 0THENS=3B : Y=4 
293  GOTO210 

303  REM  *  E I NGABERQUT I NE  * 

31 -  SO3UB90 
I  NT=  "  " 

333  PRINT "auSf"  ; 

343  GETGT:  IFGT-="  "THEN343 
350  G=ASC(GT) : I FG= 1 3THENB0T046S 
373  I  FGT<  "  0 !!  ORGT  >  "  9  "  THEN420 
383  INT=INT+BT 
393  PRINTGT; 

403  I FLEN ( I NT ) >NTHENFOR I = i TGLEN ( I NT ) : PR I 

NTCHRT (20) ; : NEXT: BDTO320 

410  SGTO330 

423  IF6=46THEN380 

425  I  FST=CHRT-  ( 1 33 )  THEN9 

430  IFGO20THEN330 

443  I FLEN ( I NT ) < 1 THEN330 

453  I NT=LEFTT  < I NT , LEN ( I NT) -1 ) : G0T0393 

463  PNT= " " : FOR I = 1 TO ( 1 0— LEN ( I NT ) ) : PNT=PNT 

+ " - " : NEXT : PR I NTPNT 

470  I FLEN ( I NT ) < 1THEN3 1 3 

480  RETURN 

999  : 

1083  REM  **  ZINSRECHNUNG  ** 

1310  6OSUE503S : PR I NTMAT 

1320  A=553BS : FORI  =  i 076TO i 906STEP40 : F OKE I 
, 101 : POKEA , 1 : A=A+40;  NEXT 

1 333  A =5573 6 : FOR 1=1 464TG 1474: POKE I . 1 30 : P 
QKEA  ,  1 :  A=A-»- 1 :  NEXT 

1040  A=55749 : FOR I  =  1 477T0 1 532 : PQKE I . 100:  P 

GKEA , 1 : A=A+ I : NEXT 

1050  2=23; S=0: SGSUS93: PRINTMBT 

1063  2=3: GOSUB90: PRINT" AUSWAHL  : " : PRINT" 


1370  Z=5: FORI =1X05: SOSUB90: PRINT "S” AT < I ) 
"P": Z=Z+i:NEXT 

1383  Z=5 : 21=2: Z2=? ; S=0 : Y= 1 : Y 1 =Y : Y2=5 : SW= 
1 : C=0 : GOSUB 1 00 : F=Y : I FF=5THEN80 
1090  2=13;  S=3:  3GSUB90:  PRINT“  ..AUFZEIT  IN  - 
:  PR  INT" - 

1130  Z=  1 5 :  FCR I  =6TG8 :  8=3 :  GGSUB90 :  PR  I  NT"$!t 
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m  < I  >  "■,i :  2=z+i  :  NEXT 

1110  Z= 1 5 : Z 1 =Z : Z2=l 7 : 3=0 : Y=6 : Y1=Y: Y2=8: S 

W= 1 : C=2 : GOSUB 100 : E=Y 

1 1 20  I FE=6THENAT (11) =JAT : H= 1 

1 1 30  I FE=7THENAT (11) =M3T : H= I 2 

1140  I FE=3THENAT ( 1 1 ) =TAT : H=3oB 

i 152  iff=ithenat (?) =kat: a-t c 10) =pt % k*i 

1 1 60  I  FF=2THENAT  ' 9 )  =Z  I  T : AT  <  10 )  =PT- :  K=  1 
1  i  70  IFF=3THENAT  <  9 )  =KAT- :  ft-?  { 1 0 )  =Z  I  T  i  K=3 
1  IBS  X  F  F = 4  T  H  E  i  v ft T  (9)  =KAf:  ft*  (13)  =11$:  AT  <  1 1 
>=PT:K=2 

2000  REM  *  EINGASEMASKE  * 

20 1 S  Z=3 : S= 1 3 : SGSUB90 : FR I NT I NGABE  :  :  Z 

=4 :  GC3UB93 :  PR  I NT " - ,! 

2E2S  Z=5 ; FQR I =9TO 1 1 :  S=  i  3 i GÖSUB90 : FR I NT "3 
AT  { I  >  "H  :  "  ;PMT 

2030  Z=Z+2 : NEXT : Z=23 : S=3 : GOSUBPO : PR I NT MC 
$ 

2040  Z=5:  S=27 :  N=10: GOSUB300:  ft  (?)  =-VAL  <  INT 
) 

2050  Z=7 : 3=27 : N= 1 0 : BOSUB3B0 : ft ( 1 3 ' = v  AL ( I N 
T ) 

2360  Z=9 : 3=27 : N= 1 0 : GOSUB300 :A(il) =VAL i IN 

T) 

2070  Z=  1 3 :  S=  1 3 :  GOSUB90  : PR I NT “ “I N-3ABE  KOR 

REKT  ?  ( J /N ) : " : G0SUB95 

2030  Z=  1 3 :  3=38 :  GOSUB90 *.  PR  I  NT  "  **§!" : 

2090  GETGT :  I  FGT<  >  "  J  "  ANDGT<  > N "  THEN2090 
2 1 03  PR I NT ST : I FST= " J " THENY= 1 
2 1 1 3  IFGT=  "  N THENY=0 

2120  3ETIT: IFIT< >CHRT (13) AND I T<  :  CHRT <20) 
THEN2120 

2130  IF I T=CHRT ( 20 ) THEN23B3 
2140  C= 1 : GOSUB 1 0 : I F Y =0 THEN2© 1 0 
3000  REM  *  RECHNUNG  * 

30 1 0  IFF= 1THENA (12) = <A<9> *A < 10) *A <1 1 ) > / < 
100*H) 

3020  I FF=2THENA <  1 2)  =  (  A  ( 9  >  *  1 30*H ) / < ft ( IS)* 
A  ( 1 1 )  > 

3033  I FF =3THENA ( 1 2 )  =  ( A ( 1 0 ) *  1 00*H ) / ( A <  9 ) * 
A  ( 1 1  >  ) 

3040  IFF=4THENA ( 12)= <A ( 10) *1 00*H ) / ( A (9)* 
A(1 1)  > 

3500  REM  *  BILDSCHIRM 

3510  Z=3:  3=13:  60SUB9G:  PRINT"- INGABE  :  11 :  Z 

=4 :  GOSUB 90:  PRINT " - " 

3520  Z=5 :  FOR I  =9TQ  1 1 :  GGSUB90 :  PR  I  NT AT  ( I )  " 

: "A ( I ) : Z=Z+2: NEXT 

3530  Z= 13: GQSUB90 : PR I NT " _ESULT AT  :":Z=14 

:  GOSUB90:  PRINT" - H  :  GQSUB70 

3540  Z=16:GOSUB90:PRINT“a,,A$<F)  I!ü?  :  51 ;  :  PR 
INT TAB ( 38— LEN (ABT) )  ;  ABT 

3550  PR I NTTAB ( 39-LEN ( ABT  > ) ; : FOR 1  =  1 TOLEN < 
ABT )  - 1 :  PRINT “  =  "  ;  :  NEXT 

3560  Z=23 : 5OSUB90 : I FK= 1 THENPR I NT " ZU5DRUC 
K  IN  ~\  ! "  :  GGTO3580 

3570  I FK=0THENPR I NT !l  aUSDRUCK  IN  “RQZENT 


4050  Z=5s Z 1 =Z : Z2=9 : S= 13 : Y=9 : Y 1=Y : Y2=l 1 : S 
W=2:C=i: GOSUB 100 
4260  I FC=0T HENGOSUB 1 0 : 60303000 
4070  Z=13: 3=13:  BOSUB90 :  PR I NT H j8"  AT  ( Y )  "ü  : 
" : PMT: G0SUB95 

4052  Z=23 : 3=0 : G0SUB93 : PR I NTMCT ; : Z= 13 : 3=2 
7 : GOSUB300 ; A < Y ) =VAL ( INT): GOTO40 1 0 
4533  REM  *  AUSDRUCK  * 

45 1 0  OPEN 4 ,4.7: PRI NT#4 . CHRT (14); CHRT ( 1 6 ) 

:  “28-  \/  " 

4523  PR  I  NT  tt  4 ,  CHRT  (i  6  )  ;  "  28 - !! ;  C 

KRT(iG) 

4533  FOR I =9T0 1 1 : PR I NT#4 , CHRT (15); CHRT ( 1 6 
)  :  1 0***  “AT  ( I )  "  :  "  ;  A  (  I )  :  NEXT 
4543  GQSUB7E :  PR  I  NT#4  ,  CHRT  <  13);  CHRT  C 16 )  :  ,s 
14" AT  <F) “  :  “ABT 

4552  PR 1 NT#4 CHRT ( 1 6 )  :  " i 5 “ ; : FOR I  =  1 T02+LE 

N  (AT-  (F>  +ABT)  :  PRINT#4,  ”  =  "  ;  :  NEXT 

■4562  PR I  NT #4 :  PR I  NT#4 :  PR  I NT#4 

4570  PR I NT #4 . CHRT < 1 3 ) ; CHRT ( 1 6 ) ; " 1 0-*** 

API TAL  UND  ZINSSATZ  WERDEN” ; 

4580  PRINT #4 , "  IN  *  '  AUSGEDRUCKT , " 

4590  PR I NT#4 . CHRT ( 16) ; "1 6DER  ♦INSSATZ  IN 
'  V.  '  \  " 

4630  PRINT #4 : FOR I  =  1 TO40 : PR I NT#4 , " == ”  ;  ;  NE 
XT : PR I NT# 4 : PR I NT#4 : PR I NT#4 : PR I NT#4 
46 1 3  CL0SE4:  FOR I  =56 1 76TQ562 1 5 :  F’OKE  1,0:  NE 
XT: G0T0358E 

5303  REM  *  VARIABLENLISTE  * 

5010  MAT=“Us  ♦  -t  ■*_--!  /  :- 

W! 

Q.  LUftifi  -3  U.  -5  -  ZAHL  !  '  - 

‘ INGABE  ! SH“ 

5333  MCT=";S  -1  -  EU  !  1  EBEN  «IE  E 

IN  .!  1“ 

5040  MDT-=“1S  -1  -  _ESULTAT  !  -3  U.  -5 

-  ZAHL  !  1" 


5050 

KAT=“ 

’ API TAL  " : PT= 

"  ZINSSATZ  “ 

ZIT=’ 

ZINSERTRAG " 

5060 

JAT=“ 

ÄHRE  " : MOT 

= !!  \ONATE 

-  Tft$-=  "  ARF 

" : PMT=" . . 

II 

5110 

BAT ( 1 ) = 

“  SENDERN  i! 

5123 

BAT(2>= 

-’OFIE 

5130 

BAT (3) = 

"  /.  I  ERECH. ” 

5140 

BAT (4) = 

“  ENUE 

5510 

AT ( 1 ) =" 

ZINSERTRAG" 

5520 

AT  < 2) =“ 

-‘API  TAL  !! 

5530 

AT  (3)  =” 

ZINSSATZ  ,! 

Listing 

»Zinsrechung« 

5540 

5550 

AT(4>=" 
AT(5) =" 

LAUFZEIT  " 
\ENUE 

5560 

AT-  ( 6 )  =  " 

•ÄHRE 

5570 

AT (7) =" 

\ONATE 

5580 

AT (8) =" 

!  AGE 

5590 

AT (13)= 

”  ♦END ERN  " 

5600 

AT (14) = 

"  __ESULTAT  ” 

5613 

AT( 15)= 

“  ENUE  “ : 

RETURN 

READY . 

3580  2=23 :  3=0 :  GOSUB90 :  FOR  1  =  1 T04 :  PRINT " !S" 

BAT  ( I  >  ,s M "  ;  :  NEXT 

3590  Y= 1 : GOSÜB200 : I FY=4THENS0 

3633  I F Y=3TH£N 1013 

3610  IFY=2THEN4500 

4300  REM  *  AENDERUNG  * 

4313  C=l: GOSUB 13 

4023  1=3: 3=13: GO3UB90: PRINT“  ZENDERUN6 
:  Z  =4 :  GQSUB93 :  PR  I  NT  "  !! 

4030  Z=5:  3=13:  F0RI=9TC1 1 :  GOSUB90:  PRINT !,;s 
AT (I > ”*  : “ ; A  C I ) : Z=Z+2: NEXT 
4340  Z=23:  3=3:  GOSUB90 :  PR I NTM.DT ; 


7  P0KE45 . PEEK (174): P0KE46 , PEEK (175): CLR 
3  REM  BY  KLAUS  KLOEKER 
9  CLR : D I MAT (19) , A ( 1 9 ) , BAT ( 4 ) : GOTO 1 033 
13  Z 1=2: ?2=13: 5=13: REM  *  MASKELOESCHEN  * 
23  FOR  Z  =  Z 1 TO Z  2 : G0SUE8E : PR I NT " 

" : NEXT: IFC=0THENRETURN 
30  Z 1 = 1 2 : Z2=20 : C=0 : G0TQ2S 
40  3=8: PQRZ=12TO20: GO3UB80: FEINT“ 

” : NEXT : RETURN 

53  AT ( A 5 =3TRT ( I NT  C  A ( A ) *  1E3+ . 5 ) ) : REM  *  RU 
NDEN 

60  ABT=LEFTT < AT (A)  . LEN  < AT ( A > ) ~25  + " . " +R I G 
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HTT (AT(A) ,2) : RETURN 
70  LOAD " MENUE 1 '  , G ; REM  * 

80  P0KE2 14, Z: PO KE 2 11, B: SYS58732 : RETURN : R 
EM  *  CURSORPOSITION 

90  A=55S69: F0RI=1597T01622: POKEI , 130:  PuK 
EA . i : A=A+ 1 : NEXT : RETURN 
100  REM  *  AUSWAHLROUTINE 

1 1 0  G0SUBB3 :  PR  I  NT  "  |g  « "  :  FOR I  =1T 

□75: NEXT 

1 20  G0SUB33 :  PR I MT " U<"  AT  (Y)  " «"  :  FOR  1=1  TO  1 25 
:  NEXT 

1 30  GETGT- :  I  FGT-<  >CHRT  <  1 33 )  ANDGT<  >CHRT  ( 1 34 
)  ANBGT<  >CHRT  ( 135)  ANDGT-C  >CHRT  (13)  THEN1 10 
140  IFGT=CHRT (133) ANDCTHENC=0: RETURN 
150  IFGT=CHRT  ( 13)  THENGGSUBBB:  PRINT"£>S'S ; 

: RETURN 

160  IFGT=CHRT-  < 135) THEM190 

170  Z=Z+SW: Y=Y+1: IFZ >Z2THEMZ=Z 1 : Y=Yi 

IBS  GOTO 110 

1 90  Z=Z-SW: Y=Y— 1 :  I F  Z<  Z 1 THENZ=Z2 : Y=Y2 
195  GOTO 110 

200  REM  *  WAHL— FUSSZEILE: B=0 

210  Z =23 :  GOSUB80 :  PR  I  NT  " @  W' :  :  FO 

R I = ! T075 : NE  X  T 

220  GÜSUB80 :  PR  I  NT  "  ijg"  BAT-  ( Y  >  " ü"  ;  :  FOR  I  =  1  TO  1 
75: NEXT 

230  GETGT: IFGT<  >CHRT  ( 134) AN3SS ■< >CHRT- C 135 
)  ANDBT<  >CHRT  (13) THEN210 

243  I  FGT=CHRT  (13)  THENGOSUBS0 :  PR  I  NT ”&<>&"  : 

: RETURN 

250  IFGT-=CHRT (135) THEN280 

260  S=S+10:Y=Y+1: IFS550THENS=0:Y=1 

270  GQTO210 

2B0  S=S— 10: Y=Y— 1 : I FS<0THENS=30 : Y=4 
290  GOTO210 

300  REM  *  E I NGABEROüT I NE 
313  GQSUB80 

315  INT=""  Listing  »Zinsrechnung« 

320  PRINT”  J|"  ;  (Fortsetzung) 

330  GETGT: IFGT=” "THEN330 
340  G=ASC(GT) : I FG= 1 3THEN460 
360  I FG< 4S0RG  >57THEN4 1 0 
370  I NT  =  I  NT+G  T :  I  N=LEN  <  I  NT- ) 

380  PRINTGT; 

390  I F I N  >NTHENFOR I  =  1TO I N: PR I NTGHRT ( 20 )  ; : 

NEXT : GOTO310 

430  GOTO320 

410  IFG=46THEN370 

420  IFGt-=CHRT  (  133)  THEN9 

430  IFGO20THEN320 

440  I F I N< 1 THEN320 

450  INT=LEFTT  < INT, IN— i )  :  GOTO3S0 

4  60  PNT=" " : FOR I  =  1 TO ( 1 B-LEN ( I NT )  ) : PNT=PNT 

+  ".  ”  :  NEXT :  PRI NTPMT 

470  I FLEN ( I NT ) < 1 THEN3 1 S 

4 BS  RETURN 

999  : 

1000  REM  *  ZINSESZINSRECHNUNG 
1010  GOSUB5000: PRINTMAT 

1 020  A=55388 : FOR I = 1 076TO 1 906STEP43 : POKE I 
,101: POKE A , 1 : A=A+40: NEXT 

1033  A=55736: FOR 1= 1 464T01 474: POKEI , 100: P 
QKEA , 1 : A=A+ 1 :  NEXT 

1043  A=55749: FORI=1477TO1502: POKEI , 100: P 
ÖKEÄvi : A=A+1 : NEXT 
1 050  Z=23 : S=B : GOSUB80 : PR I NTMBT 
1063  Z=2: GOSUB80 : PR I NT " AUSWAHL  : " : PR I NT ” 


1373  Z=4:  FORI  =  1  TOS:  GGSUB80:  PRiNT"Sä"AT  <  I ) 
,,JH1!:Z=Z+1:NEXT 

72  maf 


1 333  Z=4: Z 1 =Z : Z2=B : 3=2 : Y= i : Y 1 =Y : Y2=5 : 3w= 
1 : C=0: GOSUB103: F=Y: I FF =5THEN70 
1 090  I  FF=  1 THENAT  <  9 )  =KOT- :  AT  (10)  =PT :  AT  <  1 1 ) 
=MT: K=1 

1100  I FF=2THENAT ( 9 ) =KNT : AT (10) =FT : AT < 1 1 > 
=MT: K=i 

1110  I  FF=3THENA T  ( 9 )  =KOT :  AT  (10)  =KNT :  AT  ( 1 1 
) =NT: K=0 

1 1 23  I FF=4THENAT C 9 ) =KGT : AT ( 1 0 ) =KNT : AT  < 1 1 
) =PT : K=2 

2000  REM  *  EINGABEMASKE 

20 1 0  2=2:  S=  1 3 :  SOSUB80 :  PR  I  NT I NSABE  :  :  Z 

=3 :  QOSUB80 :  PR  I  NT 11 

2020  Z =4 : FÜR I =9TG 12:5=13: SQSUB8G : PR I NT H 

"AT  ( I )  ,!|  :  "  ;  FMT:  Z=Z+2:  NEXT 

2030  7=23 : S=0 : G0SUBS3 : PR I NTMCT : 

2040  Z=4: S=27: N=1 0: GOSUB300: A (9) =VAL (INT 
) 

2353  Z  =6 : GOSUB300 : A ( 1 0  > = v  AL ( I NT > 

2063  Z=S : SOSUB3S0 : A  < 1 1 > =VAL < I NT ) 

2065  Z= 1 0 : N=9 : SOSUB300 : A ( 1 2 ) =VAL ( INT ) 
2070  Z=13: S=13: GOSUB80: PRINT’—INGABE  KOR 
REKT  7  < J / N ) : " : GOSUB90 
2083  Z=1 3 : S=38 : GOSU880 : PR I NT ” ; 

2093  GETGT :  I FGT<  > ” J " ANDGT < > " N " THEN2090 
2103  PRINTGT:  I  FGT-=  "  J  "  THENY  =  1 
2110  I  FGT-=  “  N  "  THENY=3 

2 1 23  GET IT:  IPX  T< >CHRT < 1 3 ) AND I T<  >CHRT  i  23 ) 
THEN2 1 20 

2130  I F I  T=CHRT-  ( 20 )  THEN2080 
2143  C=1 : GOSUB13: IFY=0THEN2010 
-.77-^3  REM  *  RECHNUNG 

301U  IFF=l THEMA (16) =A (9) * < 1+ (A (10) / ( A ( 12 
)  *103)  )  )  (A  (11)  *A  ( 12)  ) 

3320  I FF= 1 THEMA ( 1 9 ) = 1 03* ((1+<A(10)/(A(12 
)  *100)  )  )  -'-Ä  <  1 2 )  - 1  >  :  D=  1 

3333  I  FF=2THENA  (16;  =A  <  9 )  /  <  1  +  (  A  (  1 0 )  /  (Ad  2 
)  *  100)  )  )  --  (A  ( 1 1 )  *A  ( 12)  )  :  D=0 
3043  I FF=3THENA ( 1 6 )  =  ( < A  < 1 0 ) / A ( 9  5 ) A ( 1 / ( A ( 
1 1 > *A ( 12) ) ) -1 ) *103: D=0 

3050  I FF=4THENA ( 1 6 ) = ( LOG ( A (10 ) / A (9) > /LOG 
( 1+ ( A ( 1 1 ) / ( A ( 12) *100) ) ) ) /A < 12) : D=3 
3500  REM  *  SCREEN 

3510  Z=2: S=13: GÖBUB80: PRINT"- INGABE  : " ; Z 

=3: SOSUBS0: PRINT" - “  " 

3520  Z=4:  F0RI=9T012:  GOSUB80:  PRINTAT-  ( I )  " 

: " A ( I ) : Z=Z+2: NEXT 

3530  Z=13:GOSUB80: : PRINT" JESULTAT  :":Z=1 

4 :  BOSUB80 :  PR  I  NT  " - "  :  A=  1 6 :  GOSUB50 

3540  Z=15:  GOSUB80:  PRINT"ig.,!  AT  (F>  nO  :  "TAB  ( 
38— LEN (ABT) )  ;  ABT 

3550  PRINTTAB (39-LEN (ABT) )  ; : F OR 1  =  1  TO LEN < 
ABT ) - 1 : PR I NT " = " ; : NEXT 

3560  Z=20 : GOSUB80 : I FK= 1 THENPRINT " 4USDRUC 
K  IN  -\  ! " : GOTO3580 

3570  IFK=0THENRR INT "AUSDRUCK  IN  “ROZENT 
3580  IFD=0THEN3620 

3590  Z=13: S=0: GGSUB80: : PRINT "LiTAT- ( 17) 

:  PR  I NT ,! iS"  AT  (18)  ,!55" 

3600  Z=17; 8=1 : GQSUB8S: A= 1 9 : G0SUB5G: PRINT 
ABT"  7." 

3610  PRINTTAB (7-LEN (ABT) ) ; : FOR 1=1 TOLEN ( Ä 
BT)  +  i  :PRINT,!=";  :  NEXT 

3620  Z  =23 : S=S : GCSUBS3 : FOR 1  =  1 T04 : PR I NT "  ig" 

BAT  ( I )  "Bf* ;  :  NEXT 

3630  Y=1 : GOSUB200: IFY=4THEN70 

3640  I F Y =3  THEN 1010 

3650  I FY=2THEN 4500 

40-30  REM  *  AENDERUNG 
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40 1 0  C- 1 i GOSUB 10: I FDTHENGÜSUB40 

4320  Z=2 :  3=  1 3 :  GOSUBBB :  :  PR  I MT ÄNDERUNG  : 

M:  Z-3:G0SÜBSß:  PRINT" - " 

4E3E  Z=4: 3=13: : FGRI=9T01 2: GGSüBSS: PRINT” 
JS"A$(I)  !,i  :  " ;  A  C I )  :  Z=Z+2:NEXT 
4043  2=23: S— 0: GOSUB80: PRINTMDS; 

4050  Z=4:  Zi=Z: Z2=i0: S=13 :  Y=9 :  Y 1  =Y :  Y2=  1 2 : 
SW=2 : C= 1 : GOSUB 1 00 


8  PC KE 4 5 , PEEK (174) : P0KE46 , PEEK C 175) : CLR 

9  CLR : D I MAS { 1 5 )  ,  A  <  1 5 )  : GOTO 1 000 

10  Z 1 =3 : Z2=9 : S= 1 3 : REM  *  MASKE  LGESCHEN  * 
20  FORZ =Z 1 TOZ 2 : 6ÖSU B9G : PR I NT ” 

" :  NEXT:  I FG=0THENRETURN 
30  ZI =12: 22=23: C=0: 60T02S 
50  RETURN 

7S  AS  (12)  =STRS  (  INT  ( A.<  1 2 )  *  1 00+  .  5 )  )  :  REM  * 


4063  I FC  =  0THENG  OSUB 1 0  s GOTC3000 
4073  Z=13 :  S=13:  GOSUB80:  PRINT  "IS"  A$<Y>  "¥  : 
" 5  PMS: SOSUB90 

408S  2= 23 :  3=0 *.  GOSUB 83 :  PR  I NTMCS :  :  Z  =  1 3 :  3=2 
7 : 6OSUB300 : A  < Y ) =VAL < I NS > : GOTO40 1 0 
4503  REM  *  PRINTER 
4535  7AS=CHRS ( 10): TES=CHRS (16) 

45 1 0  0FEN4 .4,7: PRI NT#4 , CHRS ( 1 4 ) ; TBS ” 254- 

4520  PR I  NT#4 ,  TBS 25 - " TAS 

4533  FÜR I  =970 1 2 :  PR I  NT 4 4 ,  CHRS  (15)  TBS 1 0** 
*  11  AS  ( I  >  ”  :  "  A  (  I )  :  NEXT 

4543  A= 1 6 : GOSUB 50 : PR I NT #4 , TAS; TBS” 14" AS ( 

F) "  :  ”ABS 

4553  PRINT# 4, TBS” 15" ;  : FQR 1  =  1 TG2+LEN ( AS  < F 
) + ABS ) : PR INT #4 ,"=";:  NEXT 
4560  PRIN7#4,CHRS  < 13)  : IFDTHENGOSUB4620 
4 56 5  PR I NT# 4 , TAS : TAS : TAS 

4573  PRINT#4 ,  CHRS  ( 13)  ;  TBS 11  10***  API  TAL 

UND  ZINSSATZ  WERDEN": 

4583  PRINT#4> "  IN  '  -\  '  AUSGEDRUCKT." 
4593  PR I NT #4 , TBS "16  43  NSSATZ  UND  ‘-AHRESZ! 
NS  (FALLS  VORHANDEN )  IN  '  '/.  '  !  " 

4600  PRINT#4:FORI  =  1TO40:PRINT#4,  '•==":  ;  NE 
XT : PR INT# 4 , TAS ; TAS ; TAS 

4613  CLGSE4 : FQR I =56 1 76TG562 1 5 : PGKE 1,0: NE 
XT: G0T03623 


RUNDEN 

75  ABS=LEFTS (AS (12)  , LEN (AS ( 12) ) -2) + "  .  "+R 
IGHTS ( AS ( 12) ,2) : RETURN 
80  LOAD " MENGE ” ,8: REM  »LOAD  MENGE 
93  PQKE2 14. Z: P0KE2 1 1 , S : SYS58732 : RETURN : R 
EM  *  CUESOEPGSITIGN 

95  A=55B69s  FOR I  =  1597TÜ 1622:  PQKEI  .  103:  PGK 
EA , 1 : A=A+ 1 : NE  <T : RETURN 
100  REM  *  AUSWAHLROUTINE  * 

1  1 0  GQSUB90 :  PR I NT " |g  W' :  FÜR i  =  !T 

075: NEXTI 

120  G0SUB93 :  PRINT  "US"  AS  ( Y)  "BE*' :  FORI  =  1TÖ125 
:  NEXT 

1 30  GETGS : I FSS< >CHRS < i 33 ) ANDGSC  >CHRS < 1 34 
) ANDGSC >CHR$ ( 135) ANDGSC  >CHRS ( 13) THEN1 10 
1 40  IFGS=CHRS ( 133) ANDCTHENC=0: RETURN 
150  IFGS=CHRS-  (13)  THENGOSUB90:  PR  INT  "'£>?*" : 
RETURN 

160  IFGS=CHRS (135) TUEN 190 
170  Z=Z+SW: Y=Y+1 : IFZ>Z2THENZ=Z1 : Y=Y1 
183  GOTO 113 

193  Z = Z  —SW : Y= Y— 1 : IFZCZ 1THENZ=Z2: Y=Y2 
195  G0T0113 

203  REM  *  WAHL— FUSS ZE I LE  »:S=0 
210  4  23: GOSUB90: PRINTNg  «” ;  : FO 

RI =17075: NEXT 

223  GOSUB90 :  PR I NT " iS?" BAS  <Y)  "M"  ;  :  F0RI=1T01 


4620  I FDTHENPR I NT#4 , TAS TBS " 1 5 " AS  C 1 7 ) "  ” 
AS (10)”  : 

4633  A= 19: 6OSUB50 : PR I NT #4 , ABS 

4640  PR I NT #4 , TBS "15": : FOR I = 1 TOLEN ( AS (IS) 

+AS  ( 19)  +ABS-)  +10:  PRINT#4 ,  “  =  "  :  :  NEXT 

4650  RETURN 

5333  REM  *  VARIABLEN 

5013  MhS=”LUS  ♦  /  ¥  “  4  ♦  - 

■" 

5020  MB*="a  -3  U.  -5  -  üAHL  !  '  - 

-"•INGABE  i  B» 

5033  MCS=,!Ü  -1  -  /EU  !  i  EBEN  flE  E 

IN  1  1" 

5040  MD$="!i  -1  -  —ESULTAT  i  _3  U.  -5 

-  DAHL  !  ■” 

5050  KOS="  4N. KAPITAL" :PS="  ZINSSATZ  ” : 
KNS=”  “NDKAPITAL" 

5060  NS="  '-ÄHRE  ":AS(12>="  4TNSPER.  / 

A”  :  PMS=" . " 

5100  BAS ( 1 ) ="  SENDERN  ” 

5110  BAS  (2)="  -’OPIE 

5123  BAS (3)="  /EU 

513S  BAS (4)="  ENGE 

5500  AS ( 1 ) =KNS 

5510  AS(2)=KQS 

5520  AS (3) =PS 

5530  AS (4)="  •  AUFZEIT  ” 

5540  AS<5>="  \ENUE 
5603  AS (13)="  SENDERN  " 

5610  AS (14) =n  -ESULTAT  " 

5620  AS ( 15) =”  ENGE 
5632  AS ( 17)='— FFEKTIVER" 

□64S  AS ( 18) =H  AHRESZ INS" : RETURN 


75: NEXT 

230  GETGS :  I FGS<  >CHRS  <  134)  ANDGSC  >CHRS  <  1 35 
) ANDGSC  >CHRS (13) THEN210 

243  I FGS=CHRS  (13)  THENGOSUB90 :  PR  I  NT  ”  ^>j§”  : 
: RETURN 

250  I FGS=CHRS (135) THEN280 

263  S=S+ 1 0 : Y=Y+ 1 : I FS  >3 1 THENS=0 : Y= 1 

270  GQTG213 

283  S=S— iS: Y=Y— 1 : IFSC0THENS=30: Y=4 
290  GOTO210 

330  REM  *  EINGABEROUTINE  * 

310  GOSUB90 
320  INS=" " 

333  PRINT "sJI”  ; 

340  GETGS: IFGS=" "THEN340 

350  G= ASC ( GS ) : IFG=13THEN460 

363  I FG= 13THENRETURN 

373  I FGSC  ”  3  "  ORBS  >  •'  9  "  THEN420 

380  I  NS-=  I NS+GS 

390  PR INTBS; 

400  IFLEN ( INS) >NTHENFOR 1=1 TOLEN ( INS) : PRI 
NTCHRS (23) : : NEXT: GOTQ320 
410  G0TG333 
420  IFG=46THEN3B0 
425  I FGS=CHRS (133) THEN9 
430  I FGC  >20THEN330 
440  I FLEN ( I NS ) C 1 THEN330 
450  I NS=LEFTS (INS, LEN  < I NS ) - 1 )  : GOTO390 
460  PNS-=  "  "  :  FOR I  =  1  TO  ( 1 0— LEN  C I NS)  )  :  PNS=PNS 
: NEXT : PRINTPNS 
470  I FLEN ( I NS ) C 1 THEN3 1 0 
480  RETURN 

1030  REM  **  DI KONTIEREN  ■** 

1010  GOSUB5030 : PR I NT MAS 


READY . 
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1 320  A=553B8 : FÜR I = 1 076TO 1 906STEP40 : PDKE I 
, 101 : PQKEfi , 1 : A=A+40 : NEXT 
1030  A=55736: FORI= 1 464T01474: PQKEI , 103: P 
OKEA , 1 : A=A+1:NEXT 

1043  A=55749: FORI =1 477101 502: POKEI , 100: P 
OKEA ,  1 :  A=A-i- 1 :  WEXT 
1 E50  2=23 : 5=3 : BOSUB90 s PR I NT  MBS 
1 0-60  1=3:  B0SUB93 :  PR  I  NT  "  AUSWAHL  :  “  :  PR  I N  i  " 


1070  Z=5:  FORI  =  1  TOS:  BOSUB90:  PR INT "g" AS  ( I ) 
"S” :  Z=Z+1 :  NEXT 

i 383  2=5 : Z1=Z: 22=9 : 5=0 : Y= 1 : Y 1 =Y : Y2=5 : BW= 
1 : C=0: GGSÜB100: F=Y: IFF=5THEN8ß 
1150  I  FF=  1  THEMAS  ( 9 )  =KNS :  A S-  (10)  =P S :  AS  (  1 1  > 
=JAS-i  K=  1 

1163  I  FF =2THEN AS  <  9 )  =K8S s  AS-  ( 1 0 )  =PS :  AS  C  1 1  > 
=JAS: K=1 

1 1 70  I  FF =3THENAS  <  9 )  =KNS :  AS  (10)  =KBS  AS  (  i  1 
>=JAS:K=0 

1 1 80  I FF = ATHEN AS ( 9 ) =KNS : AS (10) =KBS : AS ( 1 1 
) =PS: K=2 

2B03  REM  *  EINGABEMASKE  * 

20 10  2=3: S= 1 3 : GOSÜB90 : PR I NT ”  ~  I NSABE  :  " : Z 
=4: SOSUB90: PRINT"  " 

2320  Z  =5 : FOR I -9TG 1 1 : 3= 1 3 : GOSUB90 : PR I NT " L 
“AS  ( I )  "5®  :  “  ;  PMS 

2E30  Z=  Z  +  2: NEXT: Z=23: S=0: G0SU393: PR I NT MC 
S 

2340  Z=5 : 5=27 : N= 1 0 : 8GSUB303 : A (9) = vAl C I NS 
) 

2353  Z  =7 : GOSUB300 s  A  < 1 0 ) =VAL ( I NS ) 

2S60  Z  =  9 : GOSUB300 : A  C 1 1 5 =VAL ( I NS ) 

2870  Z= 1 3 : S= 1 3 s G0SUB93 : PR INT" . I NGABE  KOR 

REKT  7  < J/N) : " : GQSUB95 

2S33  Z=  13:  3=38 :  GOSUB90 :  PR  I NT " «Jf"  : 

2093  GE  TBS- :  I F6S<  > !!  J  i!  ANDGS-C  >  "  N ,!  THEN209B 
2133  PRINTGS:  IFSS=''  J"THENY=1 
2110  IFGS="N" THENY=0 

2 1 20  BET  I S:  I F I S<  >CHRS  ( 1 3  >  AND  I  S-<  >CHRS  ( 20 ) 
THEN2120 

2130  I F I S-CHRS (23 ) THEN20S8 
2143  C= 1 : GOSUB 10:1 FY=0THEN20 1 3 
3030  REM  *  RECHNUNG  * 

3010  IFF=1THENA < 12) =A (9) * (1/ (1+ <A( 10> /10 

0 )  )  •'■••A  (11)) 

3023  IFF=2THENA <12)=A(9)/(1/(1+CA(10 ) / 1 0 
0 ) ) "A (11)) 

3030  IFF=3THENA ( 12)  =  ( ( A (9) / A ( 10) ) A ( 1  /A < 1 
1 > )-i)*100 

3040  IFF=4THENA ( 12) =LOG <A (9) /A ( 13) ) /LOG ( 
1+ (A(ll ) /100) > 

3530  REM  *  BILDSCHIRM 

35 1 0  Z =3 : 5= 1 3 : GOSUB90 : PR I NT ” “I NGABE  :  "  :  Z 
=4: GOSUB90: PRINT"  " 

3520  Z=5:  FDRI=9TG1 1 :  GOSUB90:  PRINTAS  ( I )  ,! 

: "ft ( I } : Z=Z+2: NEXT 

3530  Z= 1 3 : BGSUB90 : PRINT " —EBULTAT  : " : Z= 1 4 

:  BOSUB90:  PRINT" - "  :  BOSUB70 

3540  Z=16:GOSUB90:PRINT"[3,,AS<F)  !,m  :  "  ;  :  PR 
INTTAB (38-LEN (ABS) ) : ABS 

3550  PRINTTAB (39-LEN (ABS) ) ; : F0RI=1T0LEN C 
ABS )  - 1 :  PR I NT "  =  " ;  :  NEXT 

3560  Z=20: GOSUB90: I FK= 1THENPR I NT " 4USDRUC 
K  IN  “\  ! " : G0T03583 

3570  I FK=0THENPR I NT " AUSDRUCK  IN  “ROZENT 

!  I! 

3583  Z  =23 : 3=0 : GOSUB90 : FOR I - 1 TG4 : PR I NT " iS" 

BftS(I) ; : NEXT 

3593  Y=1 : GOSUB200 : IFY=4THEN8ß 

3630  I F Y =3THEN 1313 

74 


3610  IFY=2THEN4500 
4300  REM  *  AENDERUNG  * 

4010  0=1: GOSUB 10 

4020  Z  =.3: 5=13:  GOSU890:  PRINT"  sENDERUNS  :  " 
: Z=4 : GOSÜB90: PRINT"  " 

4030  Z=5:  5=13:  FGRI=9TQ1 1 :  GOSUB90 :  PR  INT  "lg 
"AS ( I ) "?  : " ; A ( I ) s  Z=Z+2: NEXT 
4040  Z=23: S=0: GOSUB90: PRINTMDS; 

4350  Z=5:Z1=Z:  Z2=9:  5=13:  Y=9:  Y1=Y:  Y2=Ü:S 
W=2 : C= 1 : SOSUB 1 00 
4063  I  FC-=3THENG0SUB  1 0 :  G0T03E2U3 
4070  Z=  1 3 :  S=  1 3 :  GOSUB90 :  PR I NT  " SS"  AS  ( Y )  " M  : 
" PMS : GOSÜB95 

4083  Z=23: S=0: GD5UE90: PRINTMCS; : Z=13: 5=2 
7 : GOSUB300 : A ( Y ) =VAL ( I NS ) : GOTO40 1 0 
4500  REM  *  AUSDRUCK  * 

4505  TAS=CHRS ( 10) : TBS=CHRS (16) 

4510  0PEN4 ,4,7:  PR  INT#  4  ,  CHRS  (14);  TBS-"  10---, 

4mt- 

4520  PR INT# 4, TBS" 10 - 

- "TAS 

4530  FOR I =9T0 1 1 : PR I NT#4 , CHRS (15) ; TBS" 13* 
**  " AS ( I ) "  :  " ; A ( I ) : NEXT 

4540  6OSUB70 : PR I NT #4 , T AS ; TBS " 1 4 " AS ( F ) ”  : 
"ABS- 

4550  PR I NT #4 , TBS "15";: FOR I = 1 T02+LEN < AS ( F 
) +ABS) : PRINT  #4 , "  =  " ; : NEXT 
4560  PRINT#4,TAS; TAS; TAS 

4570  PR  I  NT #4 ,  CHRS  (13);  TBS  ”  1  ©-***  -NDKAP 

ITAL  UND  AR WERT  WERDEN": 

4580  PRINT #4 , 11  IN  '  ~\  '  AUSGEDRUCKT ,  " 
4570  PR I NT #4 , TBS ” 1 6DER  ZINSSATZ  IN  '  %  ' 

i  » 

4630  PRINT#4: FORI=1TÜ40: PRINT#4 , "==" ; : NE 
XT : PR I NT #4 ,  TAS; TAS ; TAS ;  TAS 
46 1 0  CL0SE4 : FOR I =56 1 76TG562 1 5 : POKE I . 0 : NE 
XT : GGTC35B0 

5308  REM  *  VARIABLENLISTE  * 

5010  MAS="Qg  -sfJp/!  UL“/  -34T] 

■“ 

5023  MBS="lfi  -3  U.  _5  -  OAHL  !  ,— / '  - 

•  INGABE  i ü" 


5330 

IN  ! 

MCS=";g 

W' 

-i  -  -EU  ! 

! EBEN  »IE  E 

5040  MDS="'1S 
-  DAHL  1  ü" 

-1  -  —ESULTAT 

!  -3  U.  -5 

5053 

KNS=" 

NDKAP ITAL" : PS= 

=  "  ♦INSSATZ  ": 

JAS=‘ 

'  'ÄHRE 

" : PMS- " _ 

II 

5363 

KBS=" 

! ARMERT  " 

5110 

BAS ( 1 ) = 

"  SENDERN  " 

5120 

BAS (2) = 

"  -'OP  IE 

5130 

BAS (3) = 

"  EU 

5140 

BAS (45= 

"  \ENUE 

5510 

AS  < 1 >  =  " 

i  ARWERT  " 

Listing 

5520 

AS (2)=" 

“NDKAP ITAL" 

»Diskontieren  eines 

5530 

AS (3)=" 

♦INSSATZ  " 

Kapitals« 

5540 

AS- (4)=" 

LAUFZEIT  " 

5550 

AS-  (5)  =" 

\ENUE 

5590 

AS  < 13)  = 

"  4ENDERN 

5600 

AS ( 14) = 

"  -ESULTAT  " 

5610  AS (15)= 
READY . 

"  ENUE 

RETURN 

7  P0KE45 , PEEK (174) : P0KE46 , 

PEEK (175)  :  CLR 

8  REM  (C)  BY  KLAUS  KLGEKER 

9  CLR :  D I  MAS  ( 1.5 )  ,  E  <  53 , 6 )  ,  ES  <  53 , 6 )  :  GOTO  1 00 
0 

10  Z 1=3:22=9:3=13: REM  *  MASKE  LOESCHEN  * 

1 5  FGRZ=Z 1 T0Z2 : GGSUB90 : PRINT " 

l!  :  NEXT:  IFC=0THENRETURN 
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20  Z i =1 3 : Z2=21 : C=S : GOTO 1 5 

33  FOR J  =2TD6:  ET-  ( I  ,  J )  =STET-  <  I NT  (E  C I ,  J)  *10+ 

.5)): REM  *  FORMAT  TABELLE 

35  E$ ( I , J  > =LEFTT (ET ( I , J ) , LEN (ETCI.J) )-l> 

+  ”. "+RIEHTT (ET ( I , J  > , I) 

40  LT=" " :FORA=17C10-LEN(ET( I , J) ) : LT=LT+" 
.  " :  NEXT 

45  ET  < I , J ) =LT+ET < I , J ) 

50  I FLEN  (  ET-  (  I  ,  J )  )  >  1 0THENET  (  I  ,  J )  =R  I GHTT  ( E 
T  ( I  ,  J  >  ,  10) 

55  NEXT: RETURN 

73  LOAD "MENUE"  ,S:  REM  -s-LGAD  MENUE 
SS  A=559S9: FOR I = 1 63770 i 662 : PO KE 1,100: POK 


903  REM  *  MASKE  * 

913  PR I N7MAT : A=55388 : FDP I = 1 076TG 1 9363TEF 
40: POKEI . 101 : POKEA . 1 : A=A+40: NEXT 
920  A=55776: FORI=1504TO1514: POKEI - 100: PO 
KcA ,  i :  1 :  N c_  X  i 

930  "  A=557B5 :  FOR I  =  1 5 1 7T0 1 546 :  F’QKE  1,180:  PO 
KEA , 1 : A=A+ 1 :  NEXT 

953  Z=3 : S=0 : SOSUB90 : PR I NT " AUSWAHL  :":FRI 

NT" - PR  INT  "iS - - -  ü” 

960  Z=6:  FORI  =  lT03:  GOSUB90 :  PR I NT “lg“  AT-  f  I )  !! 

S"  :  PR  INT  "iß - 1"  :  Z=Z+2:  NEXT 

970  RETURN 
999  : 


EA,1: A=A+1:  NEXT:  RETURN 

93  POKE2 1 4 , Z : P0KE2 11,5: 5YS55732 : RETURN : R 
EM  *  CURSORPOSITION  * 

95  FORI =562 16T056255: POKEI . G: NEXT: RETURN 
102  REM  *  AUSWAHLROUTINE  * 

110  SOSUB90: PRINT"®  S":F0RI=1T 

075: NEXT I 

1 20  GO3UB90 :  PR  I  NT  "  lg"  AT  ( Y )  !!  W  :  FOR  1  =  170  1 25 
:  NEXT 

1 30  GETGT :  I  FGT-<  >CHRT  (133)  AMDGT-C  >CHRT-  ( 1 34 
)  ANDGT<  >CHRT-  <  135)  ANDGT<  >CHRT  (13)  THEN1 10 
1 40  I  FGT=CHRT  (133)  ANDCTHENC=0 :  RETURN 
150  I FGT=CHRT (13) THENGOSUB90 : AT ( Y ) = " > " +M 
I m CAT ( Y)  , 2 , 1 0 ) : PR I NT "  W!  AT ( Y ) RETURN 
155  IFGT=CHRT ( 134) THEN170 
1 60  I FBT=CHRT (135) THEN 1 93 
165  G0T011B 

170  Z=Z+SW:Y=Y+1: IFZ>Z2THENZ=Z1 : Y=Y1 
180  GOTO110  64ER 

190  Z=Z— SW: Y=Y-1 : IFZCZl THENZ=Z2: Y=Y2 
195  GOTO 110 

233  REM  *  WAHL— FUSSZEILE  *:S=0 

213  Z=23:  GOSUB90:  PRINT  "iS  «";:FGRI 

=1T075: NEXT 

220  GGSUB93 :  PR I NT ” |g”  BAT  C  Y 5  " =“  ;  :  FOR I  =  i  TO  1 
75: NEXT 


232  GETGT : I FGT< >CHRT (134) ANDGT< >CHRT ( 1 35 
) ANDGT<  >CHRT (13) THEN21B 

240  IFGT-=CHRT  (13)  THENG0SUB93:  PRINT"|8>!"  ; 
: RETURN 

252  I FGT=CHRT < 1 35 ) THEN280 

263  8=5+8 : Y=Y+ 1 :  I FS >32THENS=S : Y= 1 

270  GOTO210 

233  S=S-3 : Y=Y— 1 : I FS< 0THENS=32 : Y=5 
290  GOTO210 

300  REM  *  E I NG ABERGUT I NE  * 

310  S05UB93 
320  INT=" " 

330  PRINT"  JS"  j 
340  GETGT- :  I  FST=  "  "  THEN343 
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(Fortsetzung) 


1000  REM  **  TILGUNGSRECHNUNG  * 

1313  GOSUB60S3 : GOSUB900 

1020  Z=23: S=2: GGSUB93: PRINTMBT- 

1380  Z=6:Zi=Z: Z2=10:S=0: Y=l: Y1=Y:Y2=3:SW 

=2 : C=0 : G03UB 1 00 : F=Y : I FF=3THEN70 

2000  REM  *  EINGABEMASKE  * 

2010  Z=3:  5=13:  G0SUB93:  PRINT"- INGABE  :  !! :  Z 

=4 :  GOSUB90 :  PR  I  NT  " - “ 

2323  Z=5sF0RI=4TQ6:S=i3:  GOSUB90:  PR  INT"  gl" 
A$(I)”3  :  “  ;  PMT 

2033  Z=Z+2: NEXT: 2=23: S=E: G0SUB93: PRINTMC 

T 

2043  Z=5: 5=27: N=9: F0RJ=4T06: GOSUB300: A ( J 
) =VAL ( INT) ; Z=Z+2: NEXT 

2373  Z=14: S=13: GOSUB90: PR INT" “INGABE  KOR 

REKT  ?  <J/N> : " : SOSUB80 

2080  Z=14s S=38: SOSUB90: PRINT'LJI" ; 

2090  GETGT:  I FGT-<  > ”  J  "  ANDGT<  > N " THEN2090 
2,130  PRINTGT:  I  FGT=  "  J  "  THEN Y=  1 
2110  i FGT= " N " THENY =0 

2 1 23  GET I T : I F I T< >CHRT (13) AND I T< >CHRT < 20 ) 
THEN2120 

2130  I F I  T=CHRT-  <  20 )  THEN20SE 
2140  C= 1 : GGSUB 1 0 : IFY=0THEN2310 
3000  REM  *  RECHNUNG  * 

3005  PRINT “f : Z=23: S=23: G0SUB93: PRINTMGT 

: EE (3) =0: EE (5) =0 

3010  I FF=2THEN3500 

3100  REM  *  RATENTILGUNG  * 

3113  Ti=A(4) /A (6) : J2=0: T2=0 

3120  FOR I = 1 TOA ( 6 ) : R1=A (4) -J2*T2: Zi=Rl* ( A 

(5) / 100) : A1=Z1+T1 

3130  E ( I ,2>=R1 : E  < 1 ,3) =Z1 : E ( 1 , 4) =T1 : E  C 1 ,5 
) =A i:E(I,6) =A 1/12: 6OSUB30 
3140  F0RJ=3T05STEP2: EE ( J ) =EE ( J ) +E (I , J) :N 
EXT 

3150  J2=J2+i:T2=(A<4> /A(6) ) : NEXT: GOTO370 
0 

3503  REM  ■*  AUNNU I T AETENT I LGUNG  * 

3510  Q 1 =A < 5 ) / 1 00+ 1 : T1=A (4)  *  ( (Ql— 1) / (Ql AA 


350  G=ASC  <GT ) : I FS= 1 3THENGGTO460 

360  I FG= 1 3THENRETURN 

370  I FGT< " 0 " ORGT  > " 9 " THEN420 

380  INT=INT+GT- 

390  PRINTGT; 

400  I FLEN ( I NT ) >NTHENFÖR I = 1 TOLEN ( I NT ) : PR I 

NTCHRT (20) ; : NEXT: G0TD323 

413  G0TG333 

420  IFG=46THEN380 

425  I  F8T=CHRT-  (133)  THEN9 

430  IFGO20THEN330 

440  I FLEN ( INT > < 1 THEN33S 

450  I NT=LEFTT (INT, LEN ( I NT ) - 1 ) : SGTO390 

460  PNT-=  "  "  :  F0RI=1T0  (9— LEN  ( INT)  1  :  PNT=PNT+ 

11 .  "  :  NEXT :  PRINTPNT 

470  I  FLEN  ( I  NT- )  <  1 THEN3 1 0 

480  RETURN 


(6) -1 ) ) 

3523  Z1=A<4)*<A(5> /100) : A1=T1+Z 1 : R1=A < 4) 
3530  Ed  ,2>=R1:EC1  ,3)  =Z1 :  E  <  1 ,4)  =T1 :  E  ( 1 ,5 
>  =A1 : E  < 1 ,6) -Al/12: 1  =  1 : GOSUB30 
3540  T2=T 1 : F0RI=2TQA (6) : R1=R1-T2: Z2=R1* C 
A (5) /100) :T2=T2*Q1 

3550  E ( 1 ,2) =R1 : E ( I ,3) =Z2: E  < I , 4) =T2: E ( 1 ,5 
) = A 1 : E ( I , 6 ) =A 1/12: GOSUB30 
3560  FOR J =3T05STEP2 : EE ( J ) =EE ( J ) +E ( I , J ) :N 
EXTJ : MEXTI 

3573  EE (3) =EE  €3) +E (1,3)  : EE (5) =EE (5) +E < 1 , 
5) 

3700  EE  C 3 )  =EE  (3)  /2:  EE  (5)  =EE  (5)  /2 

3710  FOR I =3T05STEP2 : EET ( I ) =STRT ( I NT (EE ( I 

) *10/ . 5) ) 

3723  EET  <  I  >  =LEFTT  (  EET-  ( I )  ,  LEN  <  EET  <!)>-!)  + 
" . "+RIGHTT (EET ( I ) . 1 ) : NEXT 


jne.de 

ne.net 
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3820  REM  *  SCREEN  * 

3805  GQSÜB9S3 

3810  Z— 3 ”  S=  13=  G0SG39S ;  PR  I NT  ”  “I NGABE  :  "  :  Z 


•.PRINT"  "sNEXT 

5220  Z=3: S= 13: GOBUB90: PRINT"  -ftENDERUNG  : 
:  Z=4:  BOSUB90:  PRINT" - !i 


=4 : GOSUB90 : PR I NT "  " 

3820  Z=5: S=13: F0RI=4T06: GOSUE90 : PR INTAT ( 
I > "  : •• A  C I ) : Z=Z+2 : NEXT 

3830  Z=14:S=13: GOSUB90 : PR I NT " —ESULThT  ; ” 
: Z=15: GO5UB90: PRINT"  “ 

3840  2=17 :  FOR J=3T05STEP2 :  GDSUB90 :  PRINT "  • 

"ECT ( J  > “P: "EET (J) : Z=Z+2:NEXT 

3850  Z=-2 1 :  S0SUB9S :  PR I ?4T " 44JSDRUCK  IN  ' 

t  I* 

3868  Z A=VAL ( EET ( 3 )  ) /  ( VAL  ( EET  <  5 )  ) / 1 88 ) 
3870  Z=  1 4 :  S=0 :  G08UB98 :  PR I NT "X:  ♦INS- 
2S”  :  Z=15s  G03US98:  PRINT  "IM  ANTEIL  B!! 

3880  ZAT=STRT(Zft> : IFZA< 10THENZAT="  "  +  ZAT 
3890  Z AT=LEFTT ( ZAT ,5) : Z=17: 3=2 : G05UB93 : P 
RINTZAT;  "  7." 

3988  Z=1S: S=3 : SOSU390 : PR I NT " ====== ” 

3918  Z=23 :  5=8 1  S0SUB9E :  FOR  1  =  1  TOS  i  PR I NT  "  :• " 

BAT ( I ) "&n ;  :  NEXT 

3928  Y=1 : 6CSUB200 s I F Y = 5 T H E N 78 

3938  IFY=4THEN9 

3940  IFY-3THEN5500 

3958  I F Y=2T HEN5888 

4003  REM  *  TABELLE  * 

48 1 0  G0SUB95 : X 1 =2 : X2=4 : Y 1  =  1 : Y2-A C 6 > 

4328  Z=i : S=G: G0SUB98 : F GR 1  =  1 T022 ; PRINTMDT 
: NEXT: 2=22: GOSUB90 : PRINTMHT 
4030  Z=3 : 5=8 : GO3UB90 : FR  J NTMT < i ? 

4343  Z=3: 5=5: FQRI=X 1TGX2: GGSUB98: PR I NTMT 
(I) :S=S+11:NEXT 

4258  Z=4 : 5= 1 : GOSUB98 : FOR I = 1 T037 : PR 


5833  Z=5:  5=13  s  FOR  I  =4TG& :  G0SÜB9S :  PR  I  NT  "ja“ 
AT-(I)  "1  :  " ;  A(I)  :  Z=Z+2:  NEXT 
5040  Z=23 : 5=8 : B0SÜB98 : PR I NT MF T ; 

5050  2=5 : Z 1 =Z : 22=9 : S= 1 3 : Y=4 : Y 1 = Y : Y2=6 : SN 
=2 : C= 1 : BO3ÜB100 
5363  IFC=3GOTO3803 

5878  Z=  1 4 :  S=  13:  GQSUB90 :  PR I NT 11  [g"  AT  ( Y )  ” ü  : 
" ; PMT: GGSUB88 

5333  Z=23: 5=8: G03UB98 : PRINTMCT:  : Z=14:  5=2 
7 : GQSÜB300 ; A ( Y >  =VAL ( I NT ) 

5890  AT  <  Y )  =  "  11 +M I  DT  ( AT  C Y )  ,2,1 0 )  :  G0T058 1 8 

5508  REM  *  PRINTER 

5505  TBT=CHRT  < 16): TAT=CHRT ( 1 3 ) 

55 1 8  OPEN4 , 4 , 7:  PR  I NT#4  .  EHRT-  ( 1 4 )  TBT"  13*US 
DRÜCK  EINES  i  I LGUNGSPLANES " 

5520  PR I NT# 4 , TBT : " 1 0 - 

- "TAT 

5538  FOR I  =4T06 :  PR  I  NT#4  .  OHRT-  (15)  TBT ' 1 1 8**  * 
”  AT  ( I )  ,!  :  "Ad):  NEXT 
5548  PR I NT# 4 , TAT ; TAT ; TAT 

5550  F0RI=1T06: PRINT#4, "  "MT ( I ) ; : NEXT: 

PRIMT#4, "  " 

5568  FOR 1  =  1 TG4S : PR I NT #4 . "  —  " ;  : NEXT: PRINT 
#4 

5578  FOR I  =  1  TG A ( 6  >  :  I T=STRT ( I ) : I F I < 1 0THEN I 
T=" . "+IT 

5575  PRINT#4,"  .  "  +  IT"  "  ; 

5580  F0RJ=2T06: PRINT#4 . "  . . "ET ( I , J) ; : NEX 
: NEXTI 

; : NEXT: PRINT 


Vto  FORI = 1 TG 48 : PR I NT#4 , " — " 


j c  NEXT 

4100  Z=6 : S= 1 : FOR I = Y 1  TO Y2 

4105  I  T=STRT  (  I )  :  I F I  <  1  ©TH EN  I  T= !! .  "  +  I T 

4107  G0SUS93: PRINT" . "+IT: S=6 

4110  FGRJ=X 1T0X2 

4120  SOSUS90 : PR I NT ET ( I , J ) 

4130  S=S+ 11: NEXT J 

4140  IFPEEK.  (214)  >15THENY2=I :  Y  i=Y2-9:  GOTO 
4200 

4158  Z=Z+ 1:5=1: NEXTI 

4288  Z= 17: S=1 : GOSUB90 : FOR J  =  1 T03E3 : PRINT"— 
'*  ;  :  NEXT 

4588  WA IT203 , 63: GETGT 
4518  IFGT =CHRT (29) THEN4558 
4528  IFGT=CHRT ( 157) THEN45E3 
4530  I FGT=CHRT (17; THEN46 1 0 
4543  IFGT=CHRT (145) THEN4640 
4543  I FGT=CHRT ( 1 33 ) THEN3800 
4545  G0T04533 

4553  X  1  =X  1  + 1 :  X2=X2+1 :  REM  * 

4560  IFX2>6THENX2=6 : X 1=4: GOTO4500 
4570  6OTO4030 

4588  X1=X1-1: X2=X2- 1 : REM  *  <- 
4590  I F X 1 < 2THENX 1 =2 : X2=4: GOTO4580 
4688  GGTO4030 

4618  IFA (6) < 1 GTHENGGTO450G 

4615  Y 1 =Y 1+10: Y2=Y2+ 18: REM  *  DOWN 

4620  IFY2XA (6 ) THENY2=A (6) :Yi=Y2-9: IFI=A( 

6) THEN4500 

4630  SOTO4E30 

4643  IFA (6) < 1 3THENGOTO4530 

4645  Y1=Y1— 10: Y2=Y2-10:REM  *  UP 

4658  IFY1< 1THENY1=1 : Y2=Yl+9: IFI< 1 1THEN45 

30 

4663  GÜTÜ4033 

5000  REM  *  AENDERUNG  * 

5310  0=1 : G0SUB1B: S=E: FORZ= i 3TQ20 : G0SUB93 


#4 

5595  PRINT #4  ,  "  !  ESAMT :  !! ; 

5608  PD=27 : FGRJ=3TQ5STEP2: PRINT#4,SPC (PO 
-LEN ( EET ( J ) ) ) EET ( J ) ; : PQ=26 : NEXT 
56 1 8  PR  I  NT#4 ,  TAT- :  T AT- ;  TBT  "  1 8***  AUSDRUCK 
DER  i  ABELLE  ERFOLGT  IN  '  ~  V  !  !! 

5628  PRINT#4,TB#"10***  i ERECHNUNG  DER  41 
NS  EN  ERFOLGT  AM  “ NDE  DES  ‘AHRES  !  " 

5630  PR1NT#4,TAT;TBT"10***  i  ILBUNG  KONST 
ANT  =  -ATENTILGUNG  i ! " 

5648  PRINT #4 , TBT" 10***  &NNUITAET  KONSTAN 
T  =  4NNU I T AETENT I LGUNG  ! ! " 

5650  PR  I  NT #4 :  FOR  1  =  1  TO40  :  PR  I  NT #.4 , 11  ==  ”  ;  :  NE 
XTI : PRINT#4 , TAT: TAT ; TAT; TAT 
5668  CL08E4: GOTO3860 
6000  REM  *  VARIABLEN  * 

6810  MAT="rLiS  {  --.LI  e  /  I  V  _  ™  ~  j 

■" 

6320  MBT=,,[S  -3  U.  -5  -  OAHL  i  ’ - 
-INGABE  !” 

6038  MCT="lg  _1  -  AUSWAHL  !  |  EBEN  :fIE  E 

IN  !  B" 

6840  MDT=" 

"  Listing  »Tilgungsplan« 

6058  MET- =  "13 

P" 

6060  MFT="la-5  -1  -  —ESULT AT  !  -3  U.  -5 

-  OAHL  !  P" 

6070  MGT=" ! ITTE  GARTEN  ! ! ! " 

6380  MHT="13  -1  -  -ESULTAT  !  -URSGR  - 

STEUERN  !  P" 

6100  AT  <  1 )  =  "  _ATENT  I  LG  .  !! 

6118  AT  C2) ="  4NNU . T I LG . " 

6120  AT (35  ="  \ENUE 
6130  AT  C  4 ) = "  -ARLEHEN  " 

6148  AT (5) ="  41 MBS ATZ  ” 

6153  AT(6)="  ÄHRE 
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6 16(3  PM$=" . " 

6230  M$<1)="  '-AHR  ” 

6210  M*  (2)  ="__E3TSCHULD,! 
6220  M*(3)="  ZINSEN" 
6230  M$( 4)="  |  ILOUNG” 

6240  M$(5>=n  4NNÜITAET" 
6250  M*(6)="  4NNU./\0N" 
6300  EC*  (3)  =  "  ZINSEN  6 

Listing  »Tilgungsplan«  (Schluß) 


6310  EC* (5) 
6400.  BA*  ( 1  ;• 
6410  BA* (2) 
6420  Bft* (3) 
6430  BA*(4) 
6440  BA* ( 5 ) : 
6500  RETURN 
READY . 


4NNUIT.  GES. 
j ABELLE “ 
■SENDERN  ” 
•'■□PIE  " 

/EU  " 
\ENUE  " 


Fortsetzung  von  Seite  67 

HYPRA-LOAD: 
Schnelles 
Laden  von 
Diskette 

Warum  Zeit  verschwenden?  Laden  Sie 
Ihre  Programme  in  Zukunft  fünfmal 
schneller. 

□ 

Schon  ganze  Scharen  von  Computerbesitzern  werden  hilf¬ 
los  gestöhnt  haben,  als  sie  wieder  einmal  eine  Kaffeepause 
einlegen  mußten,  um  das  Laden  des  nächsten  Programms  von 
Diskette  abzuwarten.  War  das  Programm  dann  auch  noch  län¬ 
ger  als  150  Blocks,  so  konnte  diese  »Zwangssendepause« 
durchaus  länger  als  2,5  Minuten  werden. 

Auch  Hardware-Hersteller  haben  diesen  Mangel  erkannt 
und  bieten  neuerdings  immer  mehr  schnelle  Laufwerke  als  Er¬ 
satz  für  die  VC  1541  an. 

Halt!  Jetzt  aber  Schluß  mit  dem  dauernden  Herziehen  über 
die  VC  1541,  die  nämlich  eigentlich  gar  keine  Schuld  an  den 
langen  Wartezeiten  hat;  vielmehr  kann  sie  es,  was  die  Ge¬ 
schwindigkeit  betrifft,  ohne  weiteres  mit  den  großen  CBM- 
Floppys  aufnehmen,  oder  anders  formuliert,  die  VC  1541  ist 
genauso  schnell  wie  zum  Beispiel  die  CBM  2031. 

Aber  wo  liegt  denn  dann  nun  der  Haken?  Das  Stichwort  lau¬ 
tet:  Der  serielle  Bus,  also  die  Schnittstelle  zwischen  Floppy 
und  Computer.  Diese  Verbindung  erfordert  zwar  weniger  Ma¬ 
terialaufwand  als  der  üblicherweise  bei  Commodore  benutzte 
IEEE-488-Bus,  (der  8-Bit-parallel  arbeitet).  Der  serielle  Bus 
hat  aber  den  Nachteil,  daß  die  Geschwindigkeit  bei  der  Über¬ 
tragung  im  Normalbetrieb  zirka  5  bis  6mal  langsamer  ist  als 
beim  lEC-Bus,  was  sich  dann  auch  auf  die  Ladezeit  auswirkt. 

Die  Hardwarelösung  habe  ich  ja  schon  erwähnt:  Sie  erfordert 
außer  einer  neuen  Floppy,  auch  noch  das  lEEE-Bus-Modul,  da 
der  C  64  in  der  Grundversion  keine  derartige  Schnittstelle  zu 
bieten  hat.  Mitunter  ist  also  diese  Lösung  sehr  teuer  und  über¬ 
steigt  die  Kaufkraft  vieler  C  64-Anwender. 

Aber  zum  Glück  gibt  es  noch  eine  Softwaremöglichkeit,  hier 
effektiv  einzugreifen.  Das  Prinzip  ist  denkbar  einfach.  Es  be¬ 
ruht  auf  der  Möglichkeit,  in  die  Floppy  Maschinenprogramme 
einzuspeichern  und  diese  dann  dort  auszuführen. 

In  unserem  Fall  werden  also  modifizierte  Busroutinen  in  der 
Floppy  und  im  Computer  abgelegt,  die  dann  die  sonst  so  lang¬ 
same  Übertragung  auf  ein  Vielfaches  steigern. 


In  Zahlen:  Der  serielle  Bus  wird  durch  diese  Routinen  weit 
über  lOmal  so  schnell  und  das  Laden  geschieht  nun  mit  der 
maximalen  Floppygeschwindigkeit,  die  etwa  5  bis  6mal  höher 
ist. 

Nun  aber  zum  Programm,  damit  Sie  so  schnell  wie  möglich 
in  den  Genuß  von  HYPRA-LOAD  kommen:  Wenn  Sie  den 
Basic-Lader  eintippen,  achten  Sie  bitte  besonders  sorgfältig 
auf  richtiges  Eingeben  der  Checksummen,  da  diese  zur  Feh¬ 
lerkontrolle  bei  der  Eingabe  der  DATAs  dienen! 

Vor  dem  ersten  Startversuch  das  Programm  bitte  unbedingt 
auf  Diskette  speichern,  da  es  sich  bei  der  Ausführung  automa¬ 
tisch  überschreibt.  Anschließend  starten  Sie  mit  RUN.  Wurde 
alles  korrekt  eingegeben,  wird  am  Basic-Anfang  ein  Maschi¬ 
nenprogramm  generiert  und  das  Basic- Programm  gelöscht. 

Dieses  Maschinenprogramm  ist  das  eigentliche  HYPRA- 
LOAD  und  kann  nun  mit  »SAVE«  abgespeichert  werden. 

Um  den  Geschwindigkeitsvorteil  auch  wirklich  nutzen  zu 
können,  wird  empfohlen,  HYPRA-LOAD  möglichst  auf  alle  Pro¬ 
grammdisketten  zu  überspielen.  Es  wurde  dazu  extra  sehr 
kurz  <n  Blocks)  gehalten.  Müßten  Sie  nämlich  nach  jedem  La¬ 
den  zuerst  die  Diskette  wechseln,  so  wäre  die  Effektivität  von 
HYPRA-LOAD  erheblich  vermindert. 

Übrigens:  Die  Einschaitmeldung  von  HYPRA-LOAD  umfaßt 
auch  eine  Bytes-free-Meldung,  welche  jedoch  ignoriert  wer¬ 
den  sollte,  da  die  Zahlenangabe  aus  programmtechnischen 
Gründen  falsch  ist.  Dies  hat  jedoch  keinen  Einfluß  auf  die  ein¬ 
wandfreie  Funktion  des  Computers!!! 

Nun  aber  zu  den  besonderen  Eigenschaften  —  HYPRA- 
LOAD  kopiert  nach  dem  Kaltstart  das  gesamte  Betriebssystem 
vom  ROM  ins  darunterliegende  RAM,  jedoch  ohne  dabei 
Basic-Speicherplatz  zu  verbrauchen.  Danach  werden  die  ein¬ 
zelnen  Programmteile  im  Betriebssystem  verteilt  und  das  Be¬ 
triebssystem  im  RAM  gestartet. 

—  Abzulesen  ist  die  Aktivierung  von  HYPRA-LOAD  an  der 
Speicherstelle  1  der  Zeropage.  Diese  enthält  normalerweise 
den  Wert  55,  was  besagt,  daß  ab  $A000  ROM  aktiviert  ist, 
welches  Basic  und  das  Betriebssystem  enthält. 

HYPRA-LOAD  schaltet  den  Wert  auf  53  um  und  aktiviert  da¬ 
durch  anstelle  von  ROM-Bausteinen  freien  RAM  Bereich,  in 
dem  nun  das  Betriebssystem  und  Basic  stehen. 

Man  kann  also  ganz  einfach  HYPRA-LOAD  abschalten, 
durch  POKE  1,55 
und,  sofern  nicht  zerstört,  mit 
POKE  1,53 
wieder  einschalten. 

—  Da  HYPRA-LOAD  im  RAM  steht,  ergeben  sich  natürlich 
einige  Probleme.  So  gibt  es  viele  Programme,  die  beim  Laden 
den  Bereich  ab  $A000  überschreiben.  Würde  nach  der  Rück¬ 
kehr  aus  der  Laderoutine  nun  ins  RAM  ab  $A000  gesprungen, 
so  wäre  ein  »Aufhängen«  des  Computers  fast  unvermeidlich. 

Gegen  solche  Programme  ist  HYPRA-LOAD  abgesichert, 
und  es  wird  nach  dem  Ladevorgang  automatisch  ins  ROM- 
Basic  zurückgesprungen.  Bei  mehrteiligen  Programmen  er¬ 
kennt  man  dies  daran,  daß  plötzlich  wieder  »normal«  geladen 
wird. 
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Überschreiben  Programme  jedoch  den  Bereich  ab  $EOOO, 
so  treffen  sie  früher  oder  später  auf  die  Laderoutinen  und  der 
Computer  »stürzt  ab«.  Bei  solchen  Programmen  hilft  nur  das 
vorherige  Ausprobieren.  Es  muß  an  dieser  Stelle  erwähnt  wer¬ 
den,  daß  es  auch  Programme  gibt,  die  ein  Abschalten  von 
HYPRA-LOAD  erfordern,  aber  erst  nachdem  der  Ladevorgang 
abgeschlossen  ist.  Auch  hier  hilft  zum  Erkennen  solcher  Pro¬ 
gramme  nur  das  Ausprobieren. 

Am  besten  arbeitet  HYPRA-LOAD  mit  einteiligen  Program¬ 
men,  da  es  hier  nicht  vorkommt,  daß  der  Bereich  ab  $E000 
überschrieben  wird  (solche  Programme  müßten  nämlich  den 
davorliegenden  I/O-Bereich  überschreiben)  und  so  das  ge¬ 
samte  Programm  schnell  geladen  werden  kann! 

—  Es  sollte  vielleicht  noch  einmal  erwähnt  werden,  daß  sich 
HYPRA-LOAD  nur  auf  den  LOAD-Befehl  beschränkt,  andere 
Diskettenoperationen  bleiben  davon  unberührt. 

—  Da  HYPRA-LOAD  im  Betriebssystem  steht,  vernichtet  es 
zwangsläufig  andere  Routinen,  das  heißt,  vor  Kassetten-  und 
RS232-Betrieb  muß  HYPRA-LOAD  abgeschaltet  werden. 

—  SYS  64738  als  Reset  reaktiviert  auch  HYPRA-LOAD,  so¬ 
fern  es  noch  nicht  zerstört  oder  ausgeschaltet  ist. 

—  Nach  einem  Reset  durch  einen  Taster  kann  HYPRA-LOAD, 
sofern  noch  nicht  überschrieben,  durch 

POKE  1,53 

wieder  eingeschaltet  werden.  Wird  danach  jedoch  langsam 
geladen,  so  ist  im  Basic-Teil  etwas  verändert  worden,  so  daß 
HYPRA-LOAD  auf  das  ROM  umgeschaltet  hat. 

—  Ein  Test  hat  ergeben,  daß  HYPRA-LOAD  auf  dem  SX  64 
trotz  dessen  angeblicher  »Vollkompatibilität«  nicht  lauffähig  ist. 

—  Da  zusätzliche  Peripheriegeräte  und  auch  der  Bildschirm 
den  schnellen  Busbetrieb  stören,  müssen  diese  entfernt,  be¬ 
ziehungsweise  abgestellt  und  der  Bildschirm  ausgeschaltet 
werden.  Ist  dies  nicht  geschehen,  so  macht  HYPRA-LOAD 
darauf  aufmerksam  und  wartet  auf  das  Nachholen  des  Ver¬ 
säumten.  Anschließend  kann  durch  Drücken  der  RUN/STOP- 
Taste  mit  dem  Laden  begonnen  werden.  Es  erfolgt  keine  wei¬ 
tere  Kontrolle  mehr! 

—  Betreiben  Sie  ein  Floppy- Laufwerk  zum  Beispiel  unter  der 
Geräteadresse  9,  so  müssen  folgende  Änderungen  durchge¬ 
führt  werden: 

Die  DATAs  in  den  Zeilen  104,  114  und  239;  dort  müssen  die 
entsprechenden  Zahlen  (008)  auf  die  neue  Geräteadresse 
umgestellt  werden.  Natürlich  ist  auch  ein  Angleichen  der 
Checksummen  erforderlich.  Es  sind  dies  die  1.,  die  2.  und  die 
12.  Checksumme. 

Übrigens:  Für  eventuelle  Berichte  über  die  Erfahrungen  mit 
HYPRA-LOAD  sowie  Verbesserungsvorschläge  wäre  ich  sehr 
dankbar. 

Und  nun  viel  Spaß  mit  einer  5  bis  6mal  so  schnellen  VC 
1541.  (K.  Schramm/B.  Schneider/gk) 

0  : CLR: GOTO3S0 

125  #**********#*****#*•*#•*■*-•*-****•*-*-**■*-*■** 


1  i  ***  =================  ■*-*•*• 

12  ***  HYPRA-LOAD-SYSTEM  *■*-* 

13  ***  =================  *-*•* 

14  **•»  *** 

15  ***  WEHTEN  1984  BY  :  -#-*■* 

16  ***  ..MI.  ,1......  .11...  UH  II  ....II,,  **.# 

1  7  -*-** 

L Et  **•*  -  KARSTEN  SCHRAMM  -  *** 

!•#***  -  BORIS  SCHNEIDER  -  *** 

20  *** 


2 1  #'*:«*■*****»■»■»****•«  ■»*■*■•*:■*•*  **-**•*-**•***•#-** 

100  DATA01 1,308, 192,007, 158,051 ,050,051 

101  DAT A056, 003, 080, 002, 032, 047, 243, 169 

1 02  DAT A226 *162, 248 ,133,167,134,168,169 

103  DATA000, 162,003 , 133,169,134 , 170,169 
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104  DATA008 , 032 ,012,237 , 169,111,032, 185 

1 05  DATA237 ,169,077, 032 ,221, 237 ,169, 045 

106  DAT A032 , 22 1 ,237,169,087,032,221 ,237 

107  DATA160 ,000, 165, 169,032,221 ,237,165 

1 08  DATA 1 70 , 032 ,221, 237 ,169, 030 , 032 , 22 1 

109  DATA237 , 177,167,032,221 ,237,200,192 

110  DATA030, 144,246,032,254,237,024, 165 

1 1 1  DATA 1 67 ,105, 030 ,133,167,144, 003 , 230 

112  DATA16S.024 ,165,169, 166,170,105,030 

1 1 3  DATA 1 33 ,169, 1 44 , 002 , 230 ,170, 224 , 005 

114  DATA 144 , 173,201 ,000, 144,169,169,008 

115  DAT A032, 012, 237, 169, 111 ,032, 185,237 

1 16  DAT Al 69, 077, 332, 221 ,237,169,045,032 

117  DATA221 ,237,169,069,032,221 ,237,169 

1 1 8  DATA 1 39 , 032 ,221, 237 ,169, 004 , 032 , 22 1 
1 19.  DATA237, 169,011 , 141 ,017,208,032,251 

1 20  DATA237 , 234 , 234 , 076 , 046 , 240 ,169,011 

121  DATA 141 ,000,221,044,000,221,016,251 

122  DATA 169 , 003 ,141 ,000,221 ,162,005,202 

123  DÄTA.234, 208, 252, 162,004, 173,000,221 

124  DATA042, 042, 182, 176, 106,102, 176,234 

125  DAT A202, 208, 242, 165, 176,073,255,096 

1 26  DATA032 , 082 , 239 ,201, 255 , 240 , 248 , 1 60 

127  D-ATA000, 169,011 , 141 ,000,221,044,000 

128  DATA22I ,016,251 , 169,003,141 ,000,221 

1 29  DATA 1 62 , 007 , 202 , 208 , 253 ,173, 000 , 22 1 

130  DATA042 , 042 , 1  0-2 ,176,106 , 102,176, 234 

131  DATA234, 173,000,221 ,042,042, 102. 176 

1 32  DA  TA  1 06 , 1 02 , 1 76 , 234  ,-234  *  1 73  ’  000 , 22 1 

133  DAT A042 , 042 ,102,176, 106,102, 176,234 

134  DATA234, 173,000.221 ,042,042,102,176 

135  DATA106, 102,176, 165, 176,373,255,153 
1 .3  a  DATA  166,251, 20-0 , 208 ,180, 096 ,120,169 
13/ '  DAT A00 1,133,167,160, 255 , 032 ,124, 239 

138  DAT Al 92, 255, 240, 064, 162,002, 165,167 

139  DAT A240, 002, 162, 004, 173, 166, 25 L ,208 

1 40  DATA007 , 238 ,167,251,173,167,251, 044 

141  DATA 1 69 , 000 , 1 33 , 168, 189 , 1 66 , 25 L , 1 45 

1 42  DATA i 74 , 230 ,174, 208 , 002 , 230 ,175, 232 

143  DAT A228, 168,208,240, 162,000, 134, 167 

1 44  DATA 173,166, 25 1 , 208 ,198,169, 053 , 1 33 

145  QATAB01 , 169,027, 141 ,017,208, 169,064 

1 46  DATA 1 33 . 1 44 , 024 , 096 , 1 69 , 053 ,133, 00 1 

i  7  7>/v  ~  i  <  C’-  ra-H  -s  i  /i  •»  r» -i  -»  —r-*r  a  *  /  i— r  ra-— t'-t 

x  ,  Lr.-;  ihiü;  ?  «ja-  /  5-LHi  .«ja.  ,  ,  x.  O  /  •  ! 

148  DAT A056, 096, 160,000, 185,066,248, 153 

1 49  DATA048 ,001, 20-0  *  192,031  ,  208 , 245  \  032 

150  DATA21 0,239, 076, 048, 001 *234,008,072 

151  DATA169, 000, 168,089,000, 160,200,208 

152  DA r A250 , 20 1 , 128,240,004,169,055, 133 

153  DATÄ001 , 166,174,164,175,104,040,088 

154  DATA896 , 221 ,016,173,240,034,173,161 

155  DAT A032 ,074,176, 250 ,173,001,221 ,041 

156  DATA253, 141 ,001 ,221 , 173,081 ,221 ,841 

157  DAT A804 , 240 , 249 , 1 69 , 144,024,076,059 

158  DATA239 , 173,161 ,002,841 ,018,240,243 

159  DATA024,096, 173, 151 ,002,172, 156,202 
I 80  DATA204 ,155, 002 , 240 ,811,041, 247 ,141 

161  DATA 151 , 002 , 177 , 247 , 238 \ 156 , 002 , 096 

162  DATA009 , 008 ,141 , 151 ,002,169.000,096 

163  DATA072 , 173,161,002,240,017, 173, 161 

164  DATA802, 041 ,003,208,249, 169,016, 141 

165  DAT  A3 13 , 22 1 , 169,002, 141 , 161,002,104 

1 66  DAT A096 ,165, 000 ,041, 006 ,201. 002 , 248 

167  DAT A803, 076, 158,253,234, L 69, 005, 133 

168  DATA009 , 162,093, 134,075^162,000, 169 

1 69  DATA082 ,133, 036 , 032 , 086 , 245 , 080 , 254 

170  DATA 184 , 173,031 .028,197,036,240,009 

171  DAT Al 98, 075, 208, 239, 169,018,076,105 

172  DATA249 , 080 ,254 , 1B4, 173,001 ,028,149 

173  DATftß37, 232, 224, 007, 208, 243, 032, 151 

1 74  DAT A244 ,165, 022 , 069 , 023 , 069 , 024 , 269 
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1 75  DAT A025 , 069 , 026 , 240  , 007 ,198, 009 , 208 

1 76  DATA 1 92 , 076 , 030 , 244 ,165, 024 ,197, 006 

177  DAT A240 , 003 , 076 ,011 ,244,133,034,169 

178  DATA006, 133,049,076,060,004, 165,018 

179  DATA166, 019, 133,022, 134,023, 165,006 

180  DATA133, 024, 165,007, 133,025, 169,000 

181  DAT A069 , 022 , 069 , 023 , 069 , 024 , 069 , 025 

182  DATA133, 026, 032, 052, 249, 162,090,032 
1 33  DATA086, 245, 160,000,080,254, 134, 173 
1 84  DAT A00 1 , 028 ,217, 036 , 000 , 240 , 006 , 202 
1 35  DATA208 , 237 , 076 ,081, 245 ,200,192, 008 

186  DATA208, 234, 032, 086, 245, 080, 254, 184 

187  DA  TA 173, 001 ,028, 145,048,200,208,245 

188  DATA1 60, 186,080,254, 184, 173,001 ,028 

1 89  DATA 1 53 , 000 ,001, 200 , 208 , 244 , 032 , 224 

190  DATA24B, 165,056, 197,071 ,240,003,076 

1 9 1  DAT A246 , 244 , 032 , 233 ,245,197, 058 , 240 

1 92  DAT A003 , 076 , 002 , 245 ,160, 030 ,169, 085 

1 93  DATA032 , 082 , 004 , 185 , 000 , 006 ,133,119 

194  DAT A044, 000, 024, 01 6, 251 , 169,016,141 

1 95  DATA000 , 024 , 044 , 000 , 024 , 048 ,251,162 

196  DATA0S0, 138,102, 119,042,042, 102, 119 

197  DAT  A042 , 042 ,141 ,000,024, 138, 102,119 
19R  DAT A042 , 042 , 102,119,042,042, 141 ,000 

199  DATA024, 138,102,119,042,042,102,1 19 

200  DATA042 , 042 ,141 ,000,024,138, 102,119 

201  DATA042, 042, 102, 119,042,042, 141,000 

202  DATA024, 162,002,202,208,253, 169,015 

203  DAT Al 41 ,000,024,200,208, 173,234,234 

204  DATA234 , 234 , 234 , 234 , 234 ,173, 000 , 028 

205  DAT A009, 008, 141 ,000,028, 173,000,006 

206  DAT A208 , 003 , 076 , 158,253,197,024,208 

207  DATA249, 133,006,173,001 ,006,133,007 

208  DATA076, 101 ,003,133,119,044,000,024 

209  DA T AE 16, 25 1 , 169,016, 141 ,000,024,044 

210  DATA008 , 024 , 048 , 251 , 162,004,169,000 

211  DATA 102, 119,042,042, 102,119.042,042 

212  DATA141 ,000,024,202,208,240,234,234 

213  DAT A234, 234, 234, 234, 169,015, 141 ,000 

214  DAT A024, 096, 096, 133,000,088, 165,000 

215  DAT AE4B , 252 , 120,096, 120,234,234,234 

216  DATA234 , 234 , 234 , 165,024, 141 ,000,006 

217  DAT  Al 33 , 006 , 165,025, 141,001 ,006,133 
2 1 B  DAT A007 ,169, 004 ,133,120,169, 226 , 032 

•— v  h  n  t\ai  /\  H  —t»  rar*  n  nra  -•  rar*'“»  t  n  j*  rarr  *  -t  /  r*  r* **r* 

z*. i  u m  :  m  j  -  ujyw-i  ,  i  ,  -  1  f  l  ,  1  oti  - 

220  DA  f  A 1 32 , 120, 164, 120, 1 B5 , 219 , 254 , 240 

221  DAT A013,0B8, 032, 113,214, 120, 169,226 

222  DATA332, 130,004,201 ,002, 144,026,230 

223  DAT Al 20, 208, 231 , 169,192,032, 130,004 

224  DATA 1 69 , 226 , 032 , 130 , 004 ,201, 002 , 1 44 

225  DAT A008 ,169, 255 , 032 , 032 ,004,076, 034 

226  DAT A235 ,173, 000 , 006 , 240 , 248 ,197, 024 

227  DATA240, 196,173,000,006,133,006,173 

228  DAT  ABS 1 ,006, 133,007,076, 160,004,234 

229  DATA234, 234, 234, 160,000, 185,025,244 

230  DATA 153 ,040 ,001 ,200, 192,031 ,208,245 

231  DAT  A076 , 043 , 00 1 , 169,000, 168,039,000 

232  DAT A 160 , 20E , 208 , 250 , 201 , 128,240,007 

233  DATA 169, 055, 133,001 ,076,001,245,076 

234  DATA048, 244, 160,000, 177, 187,201 ,036 

235  DATA240, 242, 169,001 , 133, 167 , 169,000 

236  DAIA133, 144 , 165, 167,032,012,237, 169 

237  DATA1 1 1 ,032,185,237, 165,144,016,011 

238  DATA230, 167,165,167,201 ,016,208,230 

239  DAT A076 ,187, 230 ,165,167,201, 00B , 240 

240  DATA239, 160,000, 185, 122,244,240,006 

24 1  DATA032 ,210, 255 , 200 , 208 , 245 , 032 , 225 

242  DAT A255 , 208 , 25 1 ,238,234,234,234,234 

243  DAT A076, 187,238,234,013,066,073,084 

244  DATA084 , 069 , 032 , 078 , 085 , 0B2 , 032 , 370 

245  DAT A076 , 079 , 080 , 080 , 089 , 032 , 065 , 078 
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246  DATA083 , 067 , 072 , 065 , 076 , 084 , 069 , 07B 

247  DAT A3 1 3 , 000 , 000 , 000 , 000 , 000 , 000 , 000 

248  DATA000 , 000 , 000 , 000 , 000 ,120,169, 055 

249  DATA1 33 , 001 , 160,000,132,003, 169,160 

250  DATA133, 004, 177,003, 145,003,230,003 

251  DAT A208, 243, 230, 004, 208, 244, 169,229 

252  DATA141 ,214,253, 169,076, 141,114,254 

253  DATA141 ,249,244, 169, 188, 141 , 1 15,254 

254  DAT  A 1 69 , 254 ,141 ,116,254,169,009, 141 

255  DATA250 , 244 ,169,244,141,251, 244 , 1 69 

256  DATA018, 133,003,169,010, 133,004, 169 

257  DAT A226 , 133 , 005 ,169, 248 ,133, 006 , 1 77 

258  DATA003 ,145, 005 , 200 , 208 , 249 , 230 , 004 

259  DATA230 , 006 ,165, 006 ,201, 250 , 208 , 239 

260  DATA16? ,016, 162,008, 133,003, 134,004 

261  DATA 169 , 1B7, 162,238,133,005, 134,006 

262  DATA 1 77 , 003 ,145,005, 200 , 208 , 249 , 230 

263  DATA004 , 230 , 006 ,165, 006 ,201, 240 , 208 

264  DATA239, 185,067,013, 153,095,228,200 

265  DATA192, 080, 208, 245, 160,000, 185,012 

266  DATA012, 153,009,244,200, 192, 148,208 

267  DATA245 ,169, 053 ,133,001,076, 248 , 252 

268  DATA234 , 234 , 000 , 032 , 066 , 0B9 , 0B4 , 069 

269  DAT A0B3 ,032,070,082, 069 , 069 ,013, 000 

270  DATA000 , 000 , 000 , 000 , 000 , 000 ,147,013 

27 1  DAT A032 , 032 , 032 , 032 , 042 , 042 , 042 , 042 

272  DATA032 , 067 , 054 , 052 , 045 , 072 , 089 , 080 

273  DAT A082 , 065 , 045 , 076 ,079, 065 , 068 , 045 

274  DAT A083 , 089 , 083 , 084 , 069 , 077 , 032 , 042 

275  DAT A042 , 042 ,042,013,013, 032 , 040 , 067 

276  DATA04 1 , 056 , 052 , 032 ,018, 084 , 082 , 073 

277  DATA066 , 065 , 082 ,146, 032 , 032 , 000 , 1 29 

278  DATA072 , 032 , 000 , 000 , 000 , 000 , 000 , 000 

279  ! ) AT A000 , 000 , 000 , 000 , 000 , 000 , 000 , 000 

283  REM  *****************-*-*■■«•■*■*■**■*-*■**•**-*• 
290  REM  -*  CHECKSUMMEN  * 

300  REM  ******■*■**■**#*******■**■***-**#***■*: 
310  DATA10355, 10666, 10986, 11346, 1 1058 
320  DATA09936 , 3B856 , 08690 , 09460 , 07556 
330  DATA081 19,08952,09829, 10579,08282 
340  DATA12151 ,09771,03416,00000,00000 
350  REM  ************************************* 
360  REM  *  INITIALISIERE  DAT AS  * 

370  REM  ****************-**-*-#■*-*•-*•**-*■*#■-#-** 
380  FR  INT 11  im«  HABEN  SIE  MICH  ABBE  SAVEDT’ 
393  GETA:£ :  IFA3K  >"  J  "  ANDAf<  >"N"THEN390 

400  IFA$="N,,THENPRINT :  PRINT :  PR  INT  "DANN  A 
BER  SCHNELL  8SBS"  :  END 

410  PRINT:  PRINT:  PRINT,,BITTE  GEDULD;  UEBE 
RPRUEFE  CHECKSUMMEN  ! " 

420  DIM  5(18) 

430  F0RX=1T018 

440  FORY= 1 TO80 : READA : S ( X ) =S  €  X  )  +A 
453  NEXTY , X 
460  F0RX=1T01S 

470  READCS: I ER ( X ) =CBTHENNEXT : GQT05 1 0 
480  PRINT : PRINT : PRINT" FEHLER  IN  DATENBLO 
CK  ! ! ! " 

490  PRINT : PR INT "ZEILEN” ; 90+10*X; "  ; 99+ 

10*X"  ! " 

50-3  END 

510  RESTORE: PRINT : PRINT : PR INT" DATEN  WERD 
EN  ABGESPEICHERT  . " 

520  FORX=0TO1439: READA: POKE2049+X , A: NEXT 
530  POKE45, 179: P0KE46, 13: P0KE47, 179: POKE 
48,  13 

540  PRINT: PRINT" MIT  'SAVE'  SPEICHERN  ”:P 
RINT 

550  PRINT "MIT  'RUN'  AKTIVIEREN  ! " 

560  CLR 
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VC  20 


Video- 

Vorspann  mit 
dem  VC  20 


Jede  Antwort  wird  mit  RETURN  abgeschlossen.  Die  Fort¬ 
schaltung  der  Sequenzen  Farbbalken/Etikett/Countdown  ge¬ 
schieht  mit  der  F7-Taste.  Zwischen  den  einzelnen  Sequenzen 
erscheint  immer  —  bis  zum  erneuten  Drücken  von  F7  —  eine 
Schwarzblende. 

Nach  dem  Countdown  bewirkt  die  F7-Taste  wiederum  das 
Erscheinen  der  Farbbalken,  und  die  einzelnen  Sequenzen 
werden  erneut  durchlaufen.  Für  eine  neue  Beschriftung  des 
Etiketts  ist  STOP/RESTORE  und  ein  erneuter  Programmstart 
notwendig. 

(Wolfgang  Schulz/ev) 


Einen  professionellen  Vorspann  wie 
aus  einem  richtigen  Filmstudio  produ¬ 
ziert  dieses  Programm. 


Erzeugt  wird  ein  technischer  Vorspann,  ähnlich  wie  ihn  auch 
Fernsehstudios  verwenden.  Dieser  Vorspann  dient  einerseits 
der  Kontrolle  der  richtigen  Einstellungen,  andererseits  der  Do¬ 
kumentation  der  einzelnen  Szenen.  Darüber  hinaus  wird  die 
Synchronisation  einer  eventuellen  Nachvertonung  erleichtert. 
Der  Vorspann  besteht  im  einzelnen  aus 

—  einem  farbfolgerichtigen  Farbbalken  zur  Einstellkontrolle; 
dazu  wird  ein  MeSton  von  1000  Hz  erzeugt, 

—  einem  »Etikett«  (anstatt  der  Klappe  beim  Film)  mit  Angaben 
über  Datum,  Bandnummer,  Geschwindigkeit,  Aufnahmegerät, 
Quelle,  Serienname  und  Titel, 

—  schließlich  einem  Countdown  von  neun  bis  zwei  im  Sekun¬ 
dentakt,  dazu  wieder  ein  Meßton  von  1000  Hz. 

Unter  dem  Farbbalken  und  über  den  Zahlen  des  Count¬ 
downs  erscheint  Ihr  Name  beziehungsweise  die  Studiobe¬ 
zeichnung.  Ersetzen  Sie  daher  in  den  Zeilen  440  und  1330 
»Schulz  Video«  durch  die  von  Ihnen  gewünschte  Bezeich¬ 
nung. 

Nach  dem  Starten  des  Programms  muß  als  erstes  die  Einga¬ 
be  der  Etikett-Daten  erfolgen.  Folgende  Angaben  sind  notwen¬ 
dig: 

—  Bandnummer  (  bis  9  Stellen) 

—  Geschwindigkeit  (SP  oder  LP) 

—  Datum  (beliebiges  Format) 

—  Aufnahmegerät  (bis  13  Stellen) 

—  Quelle  (bis  13  Stellen) 

—  Serienname  (bis  19  Stellen) 

—  Titel  (bis  19  Stellen) 


Das  »Etikett«  zeigt  alle  wichtigen  Angaben  auf  einen  Blick 


Listing  »Video-Vorspann« 

1  RE.t**************** 

2  REM*V IDEO-VORSPANN* 


3  REM*VON  * 

4  REM*LIGLFGANG  R.  * 

5  REM*SCHULZ  * 

6  REM*THEODOR -  * 


7  REMfcKOERNER -WEG  5  * 

8  REM*2000  HAMBURGS  1  * 

3  REM* **************  * 

10  PQKE3S379,3:PR INT" J” 

20  PR  INT"  :f3  AND  NUMMER  E  INGEB  ENH" 

30  PR  I NT : PR  I NT : PR  I NT : PR  I NT 
40  INPUTBN$:PRINT »  TOMCESCHNIND IGKE IT  SP 
/LF  " 

50  PR  INT  ■'Ml"  :  INPUT  GS$ 

60  G0SUB  1360 

70  rr  INTSPRINT:  PRINT"  J^UFZE  ICHNUNGSGERA 
ET" 

80  PR  INT: PR  INT: PR  INT 
30  INPUT  G4- 

100  PR  I NT : PR  INT: PR  I NT "L»3ER IEN-NAMEH" 

110  PR  INT: PR  INT: PR  INT 
120  INPUTSE* 

130  PRINT:PRINT:PRINT"MTITELii" 

140  PR  INT: PR  INT: PR  INT: INPUTT* 

150  PR  INT: PR  INT: PR  INT "Ä3UELLES3" 

160  PR  INT: PR  INT 
170  INPUTQ* 

130  GOSUB  1490: GOSUB 1280: PR  INT" J"  :G0SUB12 
80 

130  GOSUB  1300 

200  PRINT" J" : GOSUB 1280 

2  10  BN$sLEFTä»<BN$,6>  :  GS$=LEFT*CGSS,2  > 

220  PR  INT "  JS3AND-NR .  U"BN$;  : PR INTTAB < 19 > " 
"GS$ 

230  PR  INT  "ÄS - P 

240  PR  INT " |  |" 

250  PRINT"! _ J" 

260  print"  srna  -dt* 

270  G$=LEFT$CG$ ,13) 

280  PR  INT "ÄHHÄSERAET:  H"G$ 

230  Q*=LEFT$<Q$, 13) 

200  PR  INT : PR  INT " Ä3UELLE : H  "Q$ 

3  10  PR  INT: PR  INT 

3-  ‘0  PR  INT"k.Ä  wM  . . .  A  " 

330  FGRS=1T07: PRINT"| 

I" 

340  NEXTS 

350  pp  T  KIT  11  w  rü  ■■ 


80  Q5K3? 
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370 

SE$=LEFT$<SE*, 13) 

330 

PR  INT " IM" SET 

330 

PRINT"S»WITEL:n" 

4u3 

TT=LEFTT<TT, 

13) 

4  10 

RR  INT "HU "TT 

420 

GOSUE 1280 

'33 

PR  I NT "  J"  : GOSUB 1230 

440 

PR  INT  "  -ja 

SCHULZ  VIDEO 

450 

PR  INT "3 

ii 

480 

PR  INT  "EU"  SPRINT 

470 

F  0  R  I  =  1  TO  3 

430 

PRINT " 

a 

ii 

490 

NEXTI 

500 

FORM= 1 T04 

5  10 

PRINT" 

a  um 

ii 

520 

NEXT  M 

530 

FORZ  =  1 T03 

540 

PRINT " 

a 

ii 

550 

NEXTZ 

560 

FGRB= 1 T07 

570 

PRINT " 

awm 

n 

580 

NEXTB 

530 

GOSUB 1410 

800 

PR  I  NT  "  CXTI.I  I.I1I" 

610 

FORP= 1T04 

620 

PRINT" 

a  m»m 

ii 

830 

NEXTP 

640 

FORO  = 1 T03 

650 

PRINT" 

a 

ii 

660 

NEXTO 

670 

GOSUB 1 4 10 

680 

PK  I  NT  TTTITTTTTTTTTTTj 

690 

FORU= 1T04 

700 

PRINT " 

" 

710 

NEXTU 

72S 

FORK= 1TO 10 

730 

PRINT " 

" 

740 

NEXTK 

750 

PRINT  "  millllllTIIIllIIl- 

760 

GOSUB 14 10 

(,,70 

FORB= 1T03 

780 

PRINT" 

a 

730 

NEXTB 

300 

FORL= 1T04 

610 

PRINT" 

a  ■ 

» 

820 

NEXTL 

830 

FORJ  = 1T03 

840 

PRINT " 

a 

ii 

850 

NEXTJ 

880 

FORX  = 1 T04 

870 

PRINT" 

a  " 

880 

NEXTX 

S90 

FORZ  =  1 T03 

300 

PRINT “ 

a 

310 

NEXTZ 

320 

GOSUB 14 10 

330 

pRiNT'-cmmir 

340 

FORV  = 1T04 

350 

PRINT " 

ii 

969 

NEXTV 

373 

F0RJ=1T055: NEXTJ 

380 

GOSUB 1410 

390 

P  R  I  NT  nillllllllllll] 

1000  FORA  = 1TG7 


ANWENDUNG 


1010  print"  a  ■  a  " 

1020  NEXTA 

1030  PR  INT"MHflBBM” 

1040  FORT  = 1 TÜ3 
1050  PRINT  " 

1060  NEXTT 
1070  GOSUB 1410 

1080  PR  INT'TTT  1 1 1 1 1 1 1 1 II 1 1 1 1 1 1" 

1030  FORX= 1TÜ3 

1100  PRINT"  a 

1110  NEXTX 

1120  FORQ  = 1T04 

1130  PRINT"  3  " 

1  140  NEXTQ 

1150  PRINT"HSSS3S" 

1  160  FOR J  =  1T03 

1170  PRINT"  3  " ! NEXTJ 

1  180  GOSUE 1410 

1130  P0KE36876 ,0 

1200  PRINT"[TlIIIIir 

1210  FORK= 1T04 

1220  PRINT"  a 

1230  NEXTK 

1240  FORJ  = 1TO300 : NEXT 
1250  POKE36878 ,0 
1280  PR  INT"  J"  : GOSUB 1280 
1270  GOTO  1300 

1280  GETF$:  I FF$<  > "  «"THENGOTO 1280 
1230  RETURN 

1300  FORJ=lT013:  PDKE36876 ,239 : P0KE36878 
7 


i3ib  pr int " aa 


El 


u  m 


1 320 

1330 
1340 
1350 
1360 
1370 
1380 
1330 
5  400 

14  10 
1420 
1430 
1440 
1456 
1460 
1470 
1480 
1430 
1500 

15  10 
1520 
1530 
1540 
1550 
1560 
1570 
1538 
15SG 
1600 
1810 
READ'y 


NEXTJ 

PRINT : PRINT" $  SCHULZ  V I DEO 1 

GOSUB 1230 : PRINT"  J"  : P0KE36876 ,0 
GOTO200 

PR  I NT : PR  I NT : PR  I NT " ^ap ATU M " 

PR  INT: PR  INT "U"  :  INPUTDT* 

PR  INT: PR  INT "U" 

RETURN 

END 

REM  MESSTON 
FORP IEP= 1TO 15 
D0KE36B78,7 
P0KE36376 ,233 
NE X TP IEP 
P0KE36878 , 1 
FORN= 1TÜG25 : NEXT 
RETURN 
PRINT "J" 

PR  INT" »STARTE  JEDES  ELEMENT" 

PR  I NT : PR  I NT "MIT  DER  CF-7 ) -TASTE .  " 
PR  INT : PR  INT 

PRINT"=*jIE  SEQUENZEN  SIND:" 


PR  INT : PRINT "^1 
PRINT : PRINT "2. 
PR  INT: PR  INT "3. 
PR  INT: PR  INT "4. 
PR  INT: PR  INT "5 . 
PR  INT: PR  INT "8. 
PR  INT: PRINT"? . 
RETURN 


SCHWARZ /STUMM" 
FARBBALKEN/MESSTON" 
SCHWARZ /STUMM" 
ETIKETT " 

SCHWARZ /STUMM" 
COUNTDOWN" 

SCHWARZ /STUMM" 
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GRAFIK 


Hardcopy 
MPS  8011 
VC  1515 


Mit  dem  Programm  kann  in  knapp  drei  Minuten  der  Grafikbild¬ 
schirm  des  C  64  ausgedruckt  werden.  Dabei  wird  Bit  für  Bit  der 
Inhalt  des  Grafikspeichers  auf  die  Druckernadel  übertragen. 
Es  arbeitet  mit  dem  MPS  801  und  läuft  auch  mit  dem  VC  1515. 
Allerdings  muß  dann  der  Bildschirm  während  des  Drückens  ab¬ 
geschaltet  werden. 

Der  Basic-Lader  kann  auch  in  eigenen  Grafik-Programmen 
verwendet  werden.  Sie  können  den  Bereich  8192  bis  49151 
als  Grafikspeicher  benutzen. 

Um  passende  Bits  für  jede  Druckernadel  im  Grafikspeicher 
zu  finden,  habe  ich  den  Ausdruck  BYTEADRESSE  =  8192  + 
8  *  X  +  Y  +  INT(Y/8)  *  312  verwendet.  Er  läßt  sich  aus  den 
Angaben  im  »Commodore  64-Programmers  Reference  Gui¬ 
de«  (Seiten  1 24  bis  1 26)  ableiten.  X  und  Y  sind  dabei  die  Koor¬ 
dinaten  eines  Grafikpunktes  (gezählt  von  der  oberen,  linken 
Ecke  des  Bildschirms).  Die  Gleichung  gibt  zu  jedem  Bildpunkt 
die  Adresse  des  Bytes,  in  dem  das  entsprechende  Bit  gesetzt 
(Bildpunkt  an)  oder  gelöscht  (Bildpunkt  aus)  ist. 

Diese  Adressen  müssen  für  den  MPS  801 -Drucker  in 
Siebener-Blöcke  sortiert  werden,  da  der  Druckkopf  nur  über 
sieben  Nadeln  verfügt.  Jeder  Siebener-Block  steuert  dann 
achtmal  (einmal  für  jedes  Bit)  die  sieben  Druckernadeln. 

Insgesamt  ist  der  Grafikbildschirm  320  Punkte  entspre¬ 
chend  —  320  :  8  =  40  Bytes  —  breit.  Eine  Druckzeile  enthält 
also  40  *  7  =  280  Bytes.  Das  Programm  sortiert  jeweils  280 
Bytes  (1  Druckzeile)  in  Siebener-Blöcke  und  speichert  sie  im 
Bereich  49920  bis  50199.  Von  dort  werden  die  Bitmuster  auf 
den  Druckkopf  übertragen. 

Das  Sortieren  erfolgt  mit  der  Formel  PO- 
KE(49920  +  7*X+Y-INT(Y/7)*7),PEEK(BYTEADRESSE). 

Mit  Hilfe  der  Additions-,  Multiplikations-  und  Divisionsrouti¬ 
nen  aus  R.  Zaks  :»Programmierung  des  6502«  und  L.A.  Le¬ 
venthal  :»6502  Programmieren  in  Assembler«  habe  ich  diesen 
Ausdruck  in  Maschinensprache  übersetzt. 


Benutzung  des  Programms 


CHR$(8)  schaltet  den  Grafik-Modus  des  Druckers  ein. 

Die  drei  folgenden  CHR$(13)  bewirken  einen  Papiervorschub. 
Er  sorgt  für  ein  sauberes  Drucken  der  ersten  Grafik-Zeilen  (Zei¬ 
le  450).  Aufgerufen  wird  die  Druckroutine  mit  SYS  49525, LF 
(Zeile  460).  Dabei  ist  LF  die  logische  Filenummer  des  geöffne¬ 
ten  Drucker-Files  (Zeile  450).  Mit  CHR$(1 5)  wird  der  Drucker 
wieder  auf  den  Normal-Modus  eingestellt  (Zeile  470). 

In  den  Zeilen  410  bis  430  wird  die  Anfangsadresse  des  Gra¬ 
fikspeichers  ermittelt  und  in  Zeile  440  der  Hardcopy-Routine 
mitgeteilt.  Dadurch  läßt  sich  zum  Beispiel  auch  der  RAM- 
Bereich  unter  dem  Basic- Interpreter  als  Grafikspeicher  nut¬ 
zen.  Der  ganze  Basic-Bereich  (2048  bis  40959)  ist  dann  für 
Programme  frei. 

82 


Nicht  benutzt  werden  darf  das  RAM  unter  dem  Betriebssy¬ 
stem,  da  es  zur  Ausgabe  der  Zeichen  auf  den  Drucker  ge¬ 
braucht  wird  (BSOUT=$FFD2).  Ebenfalls  nicht  benutzbar  als 
Grafikspeicherist  der  Bereich  49152  bis  57343,  da  sonst  das 
Programm  von  der  Grafik  überschrieben  wird. 

Die  Zeilen  410  bis  440  können  weggelassen  werden,  wenn 
der  Grafikspeicher  bei  8192  bis  16191  liegt. 

(Rainer  Kracht/rg) 


Basic-Lader  »Hardcopy  MPS  801/VC  1515« 
320  REM  *************#**•*■■*•*-*#*•¥• 


330 

REM 

* 

HARDCOPY— LOADER 

* 

340 

REM 

* 

•* 

350 

REM 

■* 

RAINER  KRACHT 

* 

360 

REM 

* 

GAERTNERTWIETE  9 

* 

370 

REM 

* 

2085  QUICKBORN 

* 

380 

REM 

-* 

* 

390 

REM 

* 

MAERZ  1984 

* 

400  REM  *****************-s--*-*-*** 

410  : 

420  : 

430  DATA  0,32,253,174,32, 158,183,32,201, 
255,162,29, 142,116,193,169,0,133,251 
440  DATA  133,255, 169,8,32,210,255,32,233 
,193,169,0,160,195,133,176,132,177 
450  DATA  169,13,32,210,255,169,40,133,21 
, Tf r  , 128,133,151, 169,0,133,20,160 
460  DATA  6,177,176,37,151,240,7,165,20,2 
5,226,193,133,20, 136, 16,240,165,20 
470  DATA  9,128,32,210,255,70,151,144,223 
, 165, 176,105,6,133,176, 144,2,230,177 
4S0  DATA  198,21,208,205,206,116,193,203, 
180,169,13,32,210,255,76,204,255, 1 
490  DATA  2,4,8,16,32,64,160,39,132,252,1 
69,0, 133,248,162,8,10,38,248,6,252 
500  DATA  144,7,24,105,7,144,2,230,248,20 
2,208,239,133,247,24, 165,255, 101,247 
510  DATA  133,247,169,195,101,248,133,243 
,169,0,133, 250 ,152,201,32,48,2, 230 
520  DATA  250,10,10,10,133,249,24,165,251 
, 101,249,133,249, 169,0,101,250,133 
530  DATA  250,24,169,32,101,250,133,250,1 
65,251,74,74,74,133,252, 133,253,169 
540  DATA  0, 133,254, 162,8, 10,. 3e, 254, 6, 253 
,144,7,24,105,56, 144,2,230,254,202 
550  DATA  208,239,133,253,24,165,252,101, 
254,133,254,24,165,253, 101,249,133 
560  DATA  249,165,254,101,250,133,250,162 
,0,165,1 , 133,2,169,54,133,1,161 ,249 
570  DATA  129,247,165,2,133,1,136,43,3,76 
,235, 193,165,251,201 , 199,240,18,230 
580  DATA  251,230,255,165,255,201,7,240,3 
,76,233, 193,169,0,133,255,96,169,195 
590  DATA  133,248,169,4,133,247,162,40,16 
?,0, 160,2, 145,247, 136,16,251 , 165,247 
»00  DATA  24,105,7,133,247,144,2,230,248, 
202,208,233,96 

610  FÜR  I  =49524T049854 :  READA :  POKE I  ,  A :  B=B-f- 
A: NEXT 

620  I FB< >456 11THENPR INT " FEHLER  IN  DATENZ 
EILE  •" 

READY. 
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C  64 


P 


Der  besondere 
Leckerbissen 
—  die  mehr¬ 
farbige  Hard¬ 
copy 

Mit  Ihrem  Commodore  64  und  einem 
VC  1520-Plotter  können  Sie  farbige 
Hardcopys  produzieren. 


Das  Programm  arbeitet  als  Basic-Lader  mit  Maschinencode¬ 
teil  in  Form  von  DATA-Zeilen.  Der  Maschinenspracheteil  ope¬ 
riert  im  Bereich  ab  $  6000,  der  meines  Wissens  bei  allen  gän¬ 
gigen  Basic-Versionen  zur  Verfügung  steht.  Das  bedeutet,  daß 
das  Programm  mit  ihnen  lauffähig  ist  und  Hardcopys  ihrer  Gra¬ 
fikseiten  machen  kann,  selbst  wenn  diese,  wie  bei  Simons  Ba¬ 
sic,  unter  dem  ROM  liegen.  Man  braucht  nur  die  Startadresse 
der  Grafikseite  einzugeben,  und  schon  setzt  sich  der  Plotter  in 
Bewegung.  Die  Kopierdauer  liegt  bei  zirka  12  bis  13  Minuten 
für  eine  einfarbige  Kopie  und  bei  einer  halben  bis  dreiviertel 
Stunde  für  eine  mehrfarbige  Kopie.  Dabei  gilt:  je  geringer  die 
Bildgröße,  desto  schneller  die  Kopie.  Aber  auch  eine  große 
Grafik  wird  dann  schnell  ausgedruckt,  wenn  sie  wenig  unter¬ 
brochene  Linien  enthält.  (Klaus  Schneider/rg) 


10  REM  M  ASCH I NENSPRACHEHARDCOP YROÜT I NE 

20  REii  1520/C64 

30  REM  13.6.1984 

4E  REM  BEI 

50  REM  KLAUS  SCHNEIDER 

60  REM  BAHNHOFSTR.  5 

70  REM  493  DETMOLD 

80  REM 

90  REM  ***********  EINGABE  ************ 
100  REM 

110  FR  INT  CHR4  (14  7) 

120  PRINT  "  SOLL  DIE  KOPIE  MEHRFARBIG  WE 
RDEN  ( 3  /  N )  ,! 

130  SE  I  A4  :  IF  A "  CHEN  130 
1 40  IF A4= " 3 " I MEMPÜKE 1 000 , 1 : PR 1 NT ”  JA":G= 


1 50  I  FA4=  "  N  ”  THENPÜKE 1 000 , 0  ”.  PF  I  NT  ”  NE  1 N  ”  : 
B=1 

160  FÜR  I='i  TOG 

170  ER- INT "  BilTE  GEBEN  SIE  DIE"  :  I ;  "S?.  FA 
RBE  103)  AN!” 

180  GET  B4  :  IF  B$i.  "0"  OR  B4>"3"  THEN  iS 


1 90  POLE  1 030+ 1  ,  VAL  C  B* >  :  PR  1  NI  "  11 +84 
200  PR IN! 

210-  NEXIl 
220  REM 

230  REM  ******  TEST  AUF  ROUTINE  ******* 
240  REM 

250  FOR  1=0  I □  10 
260  READ  A 
2 70  B=PEEK ( 24576+ I ) 

280  IF  BOA  THEN  310 
290  NE XI  I 
300  GOTO  440 
310  RES TORE 
320  REM 

330  REM  ******  PÜKEN  DER  ROUTINE  ****** 
340  REM 

350  PRINT  CI  IR*  (147) 

360  PRIMI  [AB (13)  "BITTE  WARTEN" 

370  FOR  1=0  TO  825 
380  READ  A 
390  C=C+A 
400  POKE  24576+ I.A 
413  NE XI  I 

420  IF  C< >87544  THEN  PRINT  "  FEHLERHAFTE 
DATEN  !  !  '.  "  :  END 
44äbF.EM 

450  REM  *****  EINGABE  DER  ADRESSE  ***** 
460  REM 

478  PRINT  OHRT (147) 

480  PRINT  "  BITTE  GEBEN  SIE  DIE  ST ART ADR 
ESSE  DER  " 

490  PRINT 

50G  1NPUT  "  GRAFIK  EIN!  " ; A 
510  B=INT (A/256) 

520  POKE  24647,  B  :  POKE  24640 ,  A-P.*256 
538  REM 

540  REM  *****  STARTEN  DER  ROUTINE  ***** 
550  REM 

56ß  SYS  6*4096 
570  PRINT  CHF:4  <  147) 

580  REM 

593  REM  ******  GGF.  W IEDERHOLUNG  ****** 
630  REM 

61©  PRINT  "  WOLLEN  SIE  NOCH  EINE  KOPIE  ( 

a/N)  ?" 

623  BEI  A4  :  IF  A4=""  THEN  620 
630  IF  ATO-d“  THEN  END 
648  PRINT 

653  PRINT  "  MH  DENSELBEN  PARAMETERN  (J/ 
N)  ?" 

660  GET  A4  :  IF  A4-”"  l'HEN  660 
678  IF  A4< > " J "  THEN  RUN 
680  GOTO  560 
690  REM 

708  REM  **********  DIE  DATEN  ********** 
710  REM 

720  DATA  162,0,142. 14.220,120, 134,183,23 
2,134, 184,134,185, 162.6, 134,106,32,192 
730  DATA  255, 162,2, 134 , 184, 134, i85, 162,0 
, 134, 183,162,6,134,186,32,192,255, 162 
748  DATA  0,142,64,3,142,65,3,142,67,3,14 
2,70,3,142,71,3,142,72,3,142,73,3, 142 
758  DATA  76,3, 162,0,134,247,142, 148,97,1 


84  3) 
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62.224. 134.243. 142. 152.97 . 162.1 . 142 

760  DATA  75,3,162,208,142, 163,96,142,215 
,96. 162.2,32,201 ,255, 173,233,3,24, 105 
770  DATA  48 , 32 ,210, 255 , 1 69 .13, 32 , 2 1 E , 255 
, 32 | 204 , 255 , 169,52,133.1 , 160,0,177.247 
780  DATA  1 62 , 55 ,134,1, 72 , 24 , 165 . 247 , 1 05 . 
3, 144,2,230,248. 133,247,173,232,3,240 
790  DATA  56 . 104 ,162,0, 142 . 74,3, 10,46.74 . 
3, 10.46,74,3,72, 170.174,74,3,236,75 
8B0  DATA  3,208,3,32,0,98,238,73,3,238,65 
, 3 , 208 , 3 , 238 , 64 . 3 , 238 .65,3. 208 , 3 , 238 

810  DATA  64.3,173,73,3,201,4.238,203,76, 
238,96, 104,162,8. 142,74.3,24, 10,46,74 
820  DATA  3,72 , 173 , 74 , 3,205 , 75 , 3,208 , 3 ,32 
.0,98, 238 , 73 , 3 , 238 ,65,3, 208 . 3 , 238 , 64 
830  DATA  3,173,73,3,201,8,208,215,162,0, 
142,73,3,104,238,72,3, 173,72,3,201 .40 
84Ö  DATA  1 76,3,76,1 12,96,173,76,3,240,3, 
32 ,0,98, 238 ,67,3,173,78,3,141,65,3,173 
850  DATA  77.3,  141  ,64,3,32,0.98, 162./S,  142 
,72,3,142,64,3,142,65,3, 142,76,3,169 
860  DATA  208,141.163,96,141,215,96,198,2 
48.165,247,56,233,63,176,2. 198,248,133 
870  DATA  247,230,71,3,173,71,3,201,8,240 
,3,76, 112.96,162,0, 142,71,3,230,248 
880  DATA  165,247,24,105,56.144,2,230,248 
,133, 247, 238, 70, 3, 173,70, 3, 20*, 25, 240 
890  DATA  3,76,112,96,32, 204 , 255 , 173  ,“232\ 

3 . 203 .3.76. 246 . 97 . 238 .75.3.173.75.3 

900  DATA  201,4,240,119,162,0,142,70,3,14 

2.67.3.142.64.3.142.65.3.142.77.3.142 
910  DATA  78,3,162,0,134,247,162,224,134, 
240, 162,1,32,201 ,255,162,0, 138,72,189 

920  DATA  231 ,97,32,210,255, 104, 170,232,2 
24,9,208,241 ,162,1 ,32,201,255, 162,0 
930  DATA  138,72,189,240,97,32,210,255,10 
4,170,232,224,6,208,241, 162,2,32,201 
940  DATA  255, 173,75,3,56,233, t , 168, 185, ,2 
33 , 3 , 24 , 1 05 , 48 , 32 ,210, 255 , 1 69 ,13, 32 
950  DATA  210,255,32,204,255,76.112,96,77 
,44,48,44,45,50,48,49,13,77,44,48,44 
960  DATA  48,13,32,47,243,169,1,141,14,22 
0,88,96,173,64,3,72,173,65,3,72,173 
970  DATA  67,3,72,162,0,142,67,3,142,68,3 
, 142,69,3,201 , 100,144,8,233, 100,238 
980  DATA  67,3,76,23,98,201 , 10, 144, B, 233., 
10,233,68,3,76,35,98,201 , 1 , 144,8,233 
990  DATA  1,238,69,3,76,47,98,173,65,3,17 

4.64.3.240. 17.162.2.142.64.3.162.5.142 
1003  DATA  65,3,232, 142, 66, 3, 76,95, 9S, 162 
,0,142,64,3,142,65,3,142,66,3,201,100 
1010  DATA  144,8,238,64,3,233,100,76,95,9 
8,201 , 10,144,8,238,65,3,233, 10,76,107 
1020  DATA  98 , 20 1,1,144,8, 238 , 66,3,233 ,  1  , 

76.119.98.173.65.3.24.105.8.141.65.3 
1030  DATA  173,66,3,201,10,144,8,233,10,1 
41 ,66,3,238,65,3, 173,65,3,201,10,144 
184-3  DATA  11,233,10,141,65,3,238,64,3,76 
, 155,98. 162,1,32,201 ,255, 173,76,3,240 

i050  DATA  8,169,68,32,210,255,76,196,98, 
169,77,32,210,255,169,44,32,210,255, 173 
1060  DATA  64,3,24,105,48.32,210,255,173, 
65,3,24,105,48,32,210,255,173,66,3,24 
1072  DATA  105,48,32,210,255,169,44,32,21 


0.255,169,45,32,210,255,173,67,3,24, 105 
1080  DATA  48,32,210,255,173,63,3,24,103, 
43,32,210,255, 173,69,3,24,105,48,32,210 
1090  DATA  255,169,13,32,210,255,104,141, 
67,3,104,141 ,65,3.104, 141 ,64,3, 173,163 
1100  DATA  96,73,32,141,163,96,141,215,96 
,173,76,3,73,1.141,76,3.173,65,3,141 
1110  DATA  78,3, 173,64,3. 14 i , 77,3,96 
READY , 


Das  Programm  erlaubt,  in  der  Kombination  des  von  C  64  mit 
dem  Matrix-Drucker  Gemini-lOX  von  Star  eine  Hardcopy  der 
hochauflösenden  Grafik  zu  erstellen. 

Es  werden  die  Grafikpunkte  in  25  Zeilen  zusammengefaßt 
und  nacheinander  ausgedruckt. 

De  uckvorgang  dauert  rund  45  Sekunden. 

Das  Programm  wird  in  den  Kassettenspeicher  eingelesen  und 

von  dort  mit  folgendem  Befehl  aufgerufen: 

xxx  0PENX,4,5 

xxx  SYS828.X 

xxx  PRINT #X:CLOSEX 

Das  X  bei  den  einzelnen  Befehlen  steht  für  die  freidefinierba¬ 
re  Filenummer. 

Nach  dem  CLOSE-Befeh!  springt  das  Programm  automa¬ 
tisch  wieder  in  das  Basic-Programm. 

(Gunnar  E.  Krüger/rg) 


10  REM  HARDCOPY  C64  UND  GEMINI-10X 

15  REH  MIT  STAR -UN I VERSAL- I NTERFACE 

20  FÜR  1=828  TO  943 

30  READ  X : PQKE I , X : S=3+  X : NEX T  I 

40  DATA76, 63, 3, 32, 253, 174,32, 158, 183,32, 

201,255,169,0, 160,32 

50  DATA 133, 253, 132,254,162,25, 163,7,44,1 
60,5, 185, 160,3,32 

63  DATA2 1 0 , 255 ,136,16, 247 ,169,40,133,21. 
169,128,133,151 , 169 

70  DATA0, 133,20,163,7, 177,253,37, 151 ,240 
,7,165,23,25, 16e,3 

80  DATA133, 20, 136, 16,240, 165,23,32,213,2 
55,73,151 , 144,225 

90  DATA 165,253, 105,7, 1 33 , 253 ,144,2, 233 , 2 
54, 198,21 ,238,207 

100  DAT A202 , 208 , 189,169. 13.32,210,255.76 
,204,255,1,64,75,27 

1 13  DATA13, 8, 65, 27, 128,64,32, 16,8,4,2,1 
120  IF  S< >13426  THEN  PR INT" FEHLER STOP 
130  PR INT "OK!" 

READY. 

Basic-Lader  »Hardcopy  Gemini-lOX« 

85 


Listing  »Farbige  Hardcopy  VC  1520« 

Hardcopy 

Gemini-lOX 
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Olympia  Com¬ 
pact  2:  ein  In¬ 
terface 


Das  hier  beschriebene  Interface  er¬ 
möglicht  den  Anschluß  einer  Olympia 
Compact  2  an  den  Commodore  64.  Es 
gleicht  einerseits  die  Zeichensätze  der 
beiden  Geräte  an  die  ASCII-Norm  an, 
andererseits  gestattet  es  den  Aus¬ 
druck  der  Steuerzeichen  des  C  64. 


Die  Steuerzeichen  werden  in  einer  Form  dargestellt,  anhand 
derer  man  sie  bequem  identifizieren  und  wieder  eingeben 
kann.  Außerdem  simuliert  das  Programm  eine  Rücktaste  und 
führt  einen  Cursor  für  den  Drucker. 

Für  die  Verbindung  des  Userports  mit  der  Centronics- 
Schnittstelle  ist  ein  Kabel  erforderlich,  das  folgende  Pins  ver¬ 
bindet: 

Userport  8CDEFHJ  KL  BAundN 
Amphenol  1  23456789  11  19  — 29 

PC2  des  C  64  liefert  also  das  Strobe-Signal,  das  der 
Schreibmaschine  das  Vorhandensein  gültiger  Daten  mitteilt, 
und  an  FLAG2  wird  das  BUSY-Signal  des  Druckers  auf  Bereit¬ 
schaft  zur  Entgegennahme  neuer  Zeichen  abgefragt. 

Das  Programm  können  Sie  natürlich  auch  ohne  die  REMs  ab¬ 
tippen,  die  hier  wiedergegebene  Pseudo-Assembler-Fassung 
hat  den  Sinn,  einen  gewissen  Durchblick  zu  ermöglichen  und 
Änderungen  zu  vereinfachen. 

Die  Schnittstelle  hat  die  Sekundäradresse  4.  Wird  eine  an¬ 
dere  Geräteadresse  gewünscht,  etwa,  weil  schon  ein  Matrix¬ 
drucker  mit  dieser  Adresse  existiert,  so  sind  die  Zeilen  127  und 
137  des  Programms  entsprechend  zu  ändern. 

Das  Maschinenprogramm  belegt  in  der  vorliegenden  Fas¬ 
sung  die  Speicherplätze  von  32000  bis  32511.  So  ist  eine  Zu¬ 
sammenarbeit  mit  Simons  Basic  und  Exbasic  II  gewährleistet. 
Wer  das  Programm  in  einen  anderen  Bereich,  zum  Beispiel  in 
die  4  KByte  RAM  ab  49152,  legen  will,  muß  dazu  die  Zeilen 
79,  111, 114,  116, 142, 144,  218,  224,  233,  237  und  256,  die 
durch  ein  Sternchen  gekennzeichnet  sind,  ändern.  In  111  ist 
das  MSB  der  Anfangsadresse  einzusetzen  (bei  Anfang  50000 
ist  dies  195),  in  114  das  LSB  der  Anfangsadresse  des 
CHROUTTeils  (Anfang  +  55,  im  Beispiel  135),  in  116  die  An¬ 
fangsadresse  des  CHKOUTTeils  (Anfang  +  30,  im  Beispiel 
110).  In  142  und  144  stehen  jeweils  als  zweites  Byte  LSB  und 
MSB  vom  Anfang  des  Umsetzungskatalogs.  Sie  wären  bei  Um¬ 


legung  der  Schnittstelle  nach  50000  auf  73  (Zeile  144)  und 
196  (Zeile  140)  zu  ändern. 

Das  Programm  verwendet  die  Adresse  »Anfang«  (32000) 
als  Druckercursor,  der  für  formatierten  Druck  abgefragt  wer¬ 
den  kann  (zum  Beispiel  mit  PRINT# 4  TAB(31-PEEK 
(32000)),...).  Im  Programm  dient  er  dazu,  durch  (von  der  Com¬ 
pact  2  nicht  tatsächlich  ausgeführten,  sondern  druckwegopti¬ 
mierten)  Wagenrücklauf  und  Wiedervorrücken  eine  Rücktaste 
zu  simulieren.  Dieser  Cursor  wird  in  den  Zeilen  218,  224,  233, 
237  und  256  des  Programms  verwendet  und  müßte  bei  Verle¬ 
gung  des  Programms  geändert  werden  (für  Anfang  50000  ist 
jeweils  das  LSB  80  statt  0  und  das  MSB  195  statt  125). 

Zum  Aufbau  des  Programms:  Der  Initialisierungsteil  verbiegt 
die  KERNAL-Vektoren  CHKOUT  und  CHROUT  in  die  Schnitt¬ 
stellensoftware.  Da  diese  Vektoren  durch  RUNSTOP/  RESTO- 
RE  wieder  zurückgestellt  werden,  muß  die  Initialisierungsrouti¬ 
ne  nicht  nur  nach  dem  Laden,  sondern  nach  jedem  RUNSTOP/ 
RESTORE  mit  SYS  32001  aufgerufen  werden.  Die  neu  einge¬ 
bauten  Teile  CHKOUT  und  CHROUT  prüfen  nun  bei  jeder  Zei¬ 
chenausgabe,  ob  das  Zeichen  für  die  Schreibmaschinen¬ 
schnittstelle  bestimmt  ist. 

Der  CHROUT-Teil  sucht  ein  auszugebendes  Zeichen  zu¬ 
nächst  im  Sonderzeichenkatalog.  Hier  wird  ein  Zeichen  des  C 
64  in  bis  zu  drei  Codes  an  die  Schreibmaschine  umgesetzt. 
(Man  beachte  das  zusammengestoppelte  Potenzzeichen 
oder  das  elegante  Pi).  Dabei  werden  die  Steuerzeichen  für  die 
Schreibmaschine  im  Druckmodus  anders  behandelt  als  im 
Listmodus.  Ist  das  auszugebende  Zeichen  nicht  im  Sonderzei¬ 
chenkatalog  zu  finden,  so  wird  es  je  nach  Zeichensatz  auf 
ASCII-Wert  umgesetzt.  Anstelle  von  unbekannten  Zeichen 
druck!  !i©  Schreibmaschine  als  Joker  einen  accent  aigu  »'«. 

In  den  folgenden  drei  Abschnitten  des  Programms  werden 
die  angesammelten  Schreibmaschinencodes  der  Reihe  nach 
ausgegeben  und  der  Cursor  aktualisiert. 

Zum  Katalog  der  Sonderzeichen:  Hier  steht  an  erster  Stelle 
der  Wagenrücklauf,  der  beim  C  64  anders  als  bei  der  Schreib¬ 
maschine  gehandhabt  wird.  Jeder  Wagenrücklauf  (CR, 
CHR$(13)),  den  der  C  64  sendet,  muß  durch  eine  Zeilen¬ 
schaltung  (LF,  CHR$(10))  ergänzt  werden.  Das  zu  ersetzende 
Zeichen  (hier  13)  steht  immer  in  der  vierten  Spalte  des  Katalo- 
ges,  die  Ersatzzeichen  (hier  13,10,0)  in  den  ersten  drei  Spal¬ 
ten.  Das  Zeichen  0  wird  nur  deswegen  gesendet,  weil  jedes 
umzusetzende  C64  Sonderzeichen  prinzipiell  durch  drei 
Compact  2-Zeichen  ersetzt  wird. 

Das  folgende  Sonderzeichen  ermöglicht  es,  bei  Bedarf  auch 
nur  den  Wagenrücklauf  zu  senden.  Der  neue  Code  hierfür  ist 
11  (Befehl  PRINT  CHR$(11)  oder  in  Strings  PRINT 
»<  Control  >K«.  Die  dritte  Umsetzung  ist  erforderlich,  damit 
die  Compact  2  auch  ein  geshiftetes  Space  als  solches  serviert 
bekommt. 

Danach  folgen  8  Steuerzeichen  der  Schreibmaschine,  die 
mit  PRINT  CHR$(1,  2,  3,  21,  22,  23,  25  oder  26)  oder  in  einen 
String  auch  mit  PRINT  »<  Control  >  A,  B,  C,  U,  V,  W,  Y  oder  Z« 
gesendet  werden  können.  Dies  ist  auch  mit  PRINT  CHR$(12) 
beziehungsweise  PRINT  »<  Control  >L«  möglich,  was  einen 
Seitenvorschub  bewirkt.  Die  Control-Methode  führt  jedoch  bei 
A,B,C  und  L  zu  Problemen,  da  sie  nicht  gelistet,  sondern  auch 
im  Listmodus  ausgeführt  werden. 

Im  Katalog  folgen  nun  die  Umlaute  und  Sonderzeichen  der 
Schreibmaschine,  die  den  folgenden  Tasten  des  C  64  zuge¬ 
ordnet  wurden: 

Comm  4- : ä 
Shift  +  :  Ä 
Comm  — : ö 


86  33® 
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Shift  -  :  Ö 
Pfund  :  ß 
Comm  Pfund  :  Q 
Shift  Pfund  :  Ü 
Comm  Alphak  :  § 

Shift  Alphak  :  I 
Comm  ★ 

Shift  ★  :  Unterstreichen  des  nächsten  Zeichens 
eckige  Klammer  auf :  2 
eckige  Klammer  zu  :  3 

Der  Akzent  »'«  wird  über  das  nachfolgende  Zeichen  ge¬ 
druckt,  UNT+ RT  unterstreicht  das  nachfolgende  Zeichen.  Auf 
den  Einbau  von  Promille  und  My  wurde  verzichtet.  Wem  diese 
Zeichen  lieb  und  wert  sind,  der  möge  eine  der  Zeilen  298  bis 
303  ändern,  indem  er  die  ersten  drei  DATA  durch  60,0,0  für 
My  und  durch  14,46,15  für  Promille  ändert.  (Die  vierte  DATA- 
Zahl  ist,  wie  erwähnt,  der  Code  des  C  64-Zeichens,  das  er¬ 
setzt  wird).  In  TEXT  64,  das  das  Pfundzeichen  als  Steuerzei¬ 
chen  benutzt,  könnte  man  sich  das  »ß«  erhalten,  indem  man 
die  64  und  die  92  in  den  Zeilen  288  und  294  vertauscht  und 
so  das  »ß«  auf  die  Alphakringel-Taste  legt.  Ich  selbst  habe  statt- 
dessen  die  Zeilen  3160,  7110,  540,  1200,  7200,  8220  und 
7140  von  TEXT  64  geändert. 

Bei  den  nun  anstehenden  Listcodes  herrscht  folgende  Sy¬ 
stematik:  Die  Kleinbuchstabencodes  gehören  zu  den  direkt 
ansprechbaren  Funktionen  CLR,  HOME  und  den  Cursorta¬ 
sten.  »g«  bedeutet  CHR$(142),  Umschalten  auf  Großschrift, 


was  nur  mit  Tricks  eingegeben  werden  kann,  aber  in  manchen 
Listings  auftaucht. 

Die  Zeichen”!,”,  #,  $,  %,  &,  ’  und  (”  stehen  für  die  acht  Far¬ 
ben,  die  zusammen  mit  der  Commodore-Taste  eingegeben 
werden. 

Ziffern  und  Großbuchstaben  werden  zusammen  mit 

<  Control  >  eingegeben.  Es  sind  dies  die  ersten  acht  Farben, 
9  und  0  für  RVS  und  RVS  OFF,  die  Umschaltung  auf  den  zwei¬ 
ten  Zeichensatz  durch  <  Control  >N,  Blockieren  und  Freiga¬ 
be  der  Umschaltung  durch  <  Control  >H  beziehungsweise 

<  Control  >  I  sowie  die  oben  schon  erwähnten  Steuercodes 

<  Control  >  F,  K,U,V,W,Y,Z  für  die  Schreibmaschine.  Die  ange¬ 
gebenen  Control-Codes  gehören  natürlich  in  einen  String 
nach  PRINT. 

Nicht  in  Print-Statements,  sondern  nur  in  Abfragen  tauchen 
mitunter  auch  die  Listcodes  der  Funktionstasten  auf,  die  aber 
aus  Platzgründen  hier  ausgelassen  werden  mußten  und  von 
der  Schreibmaschine  wie  alle  unbekannten  Zeichen  als  Joker 
» ' «  ausgegeben  werden. 

Damit  nicht  jedesmal  das  ganze,  lange  Programm  eingele¬ 
sen  werden  muß,  habe  ich  am  Anfang  des  Programms  eine 
Möglichkeit  beschrieben,  eine  reine  Maschinencodefassung 
abzuspeichern  und  direkt  oder  unter  Programmkontrolle  wie¬ 
der  einzulesen. 


(Reinhard  Atzbach/rg) 
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Listing:  Interface  für  Olympia  Compact  2 


75  REM  ******  CENTRONICS  ************ 

121 

167 

DATA 

169, 

0 

REM 

LDA 

#0 

213 

REM 

RUECKTASTE 

76  REM  INTERFACE  FUER  OLYMPIA  COMPACT  2 

122 

DATA 

32,  15,243 

REM 

OSR 

FILENR 

168 

DATA 

16, 

55 

REM 

BPL 

K 

214 

77  REM 

C)  REINHARD  ATZBACH  130784 

123 

DATA 

240,  3 

REM 

BEQ 

A 

169 

DATA 

162, 

3 

REM 

F 

LDX 

#3 

215 

DATA 

104 

REM 

L 

PLA 

78  REM  ******************************** 

124 

DATA 

76,'  1,247 

REM 

JMP 

F  N  OPEN 

170 

DATA 

136 

REM 

DEY 

216 

DATA 

201, 

6 

REM 

CMP 

SRUECKT 

79  A-32000: 1=510: REM  *  ANFANG/LAENGE  * 

125 

DATA 

32,  31,243 

REM 

A 

JSR 

SETPARA 

171 

DATA 

177,100 

REM 

LDA 

(100), Y 

217 

DATA 

208, 

18 

REM 

BNE 

0 

80  F0RN=0T0l : READB : POKEA+N . B : NEXT 

126 

DATA 

165,186 

REM 

LDA 

GERAETNR 

172 

DATA 

72 

REM 

PHA 

218 

DATA 

206. 

0,125 

REM 

* 

UEC 

32000 

81  SYS  A+1  :  END 

127 

DATA 

201,  4 

REM 

CMP 

#CEN 

173 

OATA 

136 

REM 

DEY 

219 

DATA 

48, 

53 

REM 

BMI 

T 

82  REM  ******************************** 

128 

DATA 

240,  5 

REM 

BEQ 

B 

174 

OATA 

177. 

100 

REM 

LDA 

(100),  Y 

220 

DATA 

240, 

9 

REM 

BEQ 

N 

83  REM  * 

MASCHINENPG  SAYEN:  RUN: GOTO  85 

129 

DATA 

165,186 

REM 

LDA 

GERAETNR 

175 

OATA 

72 

REM 

PHA 

221 

DATA 

169, 

32 

REM 

LOA 

#SPACE 

84  REM 

130 

DATA 

76,  93,242 

REM 

OMP 

NOTCEN 

176 

OATA 

136 

REM 

DEY 

222 

DATA 

232 

REM 

M 

INX 

85  0PEN5 , 8 , 5 , "K-CENTRONICS , P , W" 

131 

DATA 

76, 1 17,242: REM 

B 

JMP 

CEN 

177 

DATA 

177,100 

REM 

LDA 

(100), Y 

223 

DATA 

72 

REM 

PHA 

86  PRINT#5,CHR$(A  AND  255) ;CHR$(A/256) ; 

132 

178 

DATA 

16, 

40 

REM 

BPL 

K 

224 

DATA 

206, 

0,125 

REM 

* 

DEC 

32000 

87  F0RN=AT0A+5 10 : PRINT #5 , CHRS (PEEK(N) ) ; 

133 

REM 

CHROUT 

179 

225 

DATA 

208,249 

REM 

BNE 

M 

88  NEXTN 

:  CL0SE5 

134 

180 

REM 

ZEICHENSATZ 

? 

226 

DATA 

169, 

13 

REM 

N 

LDA 

#CR 

89  REM 

135 

DATA 

72 

REM 

PHA 

181 

227 

90  REM  * 

LADEN  DES  MASCHI NENP6/D I REKT 

136 

DATA 

165,154 

201,  4 

REM 

LDA 

GERAET 

182 

DATA 

72 

REM 

G 

PHA 

228 

REM 

ORUCKERCURSOR 

IN  32000 

91  REM 

L0AD"K-CENTR0NICS" ,8, 1 

137 

DATA 

REM 

CMP 

#CEN 

183 

DATA 

173, 

24,208 

REM 

LDA 

VIDEO 

229 

92  REM 

ENDEPOINTER  45/46  NOTIEREN  ! 

138 

DATA 

240,  3 

REM 

BEQ 

C 

184 

DATA 

41, 

2 

REM 

AND 

#2 

230 

DATA 

201, 

13 

REM 

0 

CMP 

#CR 

93  REM  * 

LADEN  DES  MASCHI NENPG/PROGRAMM 

139 

DATA 

76,205,241 

REM 

JMP 

NOTCEN 

185 

DATA 

208, 

7 

REM 

BNE 

H 

231 

DATA 

208, 

5 

REM 

BNE 

Q 

94  REM 

OPEN  5, 8, 5, "K-CENTRONICS, P,R" 

140 

DATA 

134,  98 

REM 

C 

STX 

98 

186 

232 

DATA 

160, 

0 

REM 

P 

LDY 

#0 

95  REM 

GET#5,A$:GET#5,A$ 

141 

DATA 

132,  99 

REM 

STY 

99 

187 

REM 

1. ZEICHENSATZ 

233 

DATA 

140, 

0,125 

REM 

* 

STY 

32000 

96  REM 

F0R  N=0  TO  510:GET  A$ 

142 

DATA 

169,255 

REM 

* 

LDA 

#CATL 

188 

234 

97  REM 

POKE  ANFANG+N,ASC(A$+CHR$(0) ) 

143 

DATA 

133,100 

REM 

STA 

100 

189 

DATA 

104 

REM 

PLA 

235 

DATA 

201, 

27 

REM 

Q 

CMP 

#ESC 

98  REM 

NEXT  N:CL0SE  5: SYS  ANFANG+1 

144 

DATA 

169,125 

REM 

* 

LDA 

tfCATH 

190 

DATA 

201  , 

91 

REM 

CMP 

#"Z" 

236 

DATA 

208, 

3 

REM 

BNE 

R 

99  REM  ******************************** 

145 

DATA 

133,101 

REM 

STA 

101 

191 

DATA 

144, 

27 

REM 

BCC 

K 

237 

DATA 

206, 

0,125 

REM 

* 

OEC 

32000 

100  : 

146 

DATA 

160,227 

REM 

LDY 

#LENCAT 

192 

DATA 

176, 

19 

REM 

BCS 

Z 

238 

101  REM 

DRUCKERCURSOR 

147 

DATA 

36,  15 

REM 

BIT 

LISTFLAG 

193 

239 

DATA 

201, 

32 

REM 

R 

CMP 

SCONTROL 

102  : 

148 

DATA 

16,  2 

REM 

BPL 

X 

194 

REM 

2. ZEICHENSATZ 

240 

DATA 

144, 

23 

REM 

BCC 

U 

103  DATA 

0  : REM  ZEILENANFANG 

149 

DATA 

160,255 

REM 

LDY 

#LENCAT 

195 

241 

104  : 

150 

DATA 

162,  1 

REM 

X 

LDX 

#1 

196 

DATA 

104 

REM 

H 

PLA 

242 

DATA 

201, 

94 

REM 

CMP 

#AKZ.94 

105  REM 

INITIALISIERUNG 

151 

DATA 

104 

REM 

PLA 

197 

DATA 

201, 

64 

REM 

CM? 

#ASCII 

243 

DATA 

240, 

4 

REM 

BEQ 

S 

106  : 

152 

198 

DATA 

144  , 
201, 

10 

REM 

BCC 

J 

244 

DATA 

201, 

96 

REM 

CMP 

#AK7.96 

107  OATA 

169,255  : REM  LDA  #AUSGANG 

153 

REM 

SONDERZEICHEN 

199 

DATA 

192 

REM 

CMP 

#KLEIN 

245 

DATA 

208, 

12 

REM 

BNE 

T 

108  DATA 

141,  3,221 :REM  STA  DDR  B 

154 

200 

OATA 

144, 

4 

REM 

BCC 

I 

246 

DATA 

168 

REM 

S 

TAY 

109  DATA 

169,  0  : REM  LDA  #IN1 

155 

DATA 

209,100 

REM 

D 

CMP 

(100), Y 

201 

DATA 

11  .127 

REM 

AND 

#7F 

247 

DATA 

169, 

6 

REM 

LOA 

tfRUECKT 

110  DATA 

141,  1 ,221 :REM  STA  PORT  B 

156 

DATA 

240,  8 

REM 

BEQ 

E 

202 

DATA 

208, 

2 

REM 

BNE 

J 

248 

DATA 

72 

REM 

PHA 

111  DATA 

169,125  :REM  *  LDA  #CHR0UTH 

157 

DATA 

136 

REM 

DEY 

203 

DATA 

9, 

32 

REM 

I 

ORA 

#32 

249 

DATA 

232 

REM 

INX 

112  OATA 

141,39,  3: REM  STA  CHRVEKH 

158 

DATA 

136 

REM 

DEY 

204 

DATA 

201,123 

REM 

J 

CMP 

#"Z" 

250 

DATA 

169, 

32 

REM 

LDA 

ISPACE 

113  DATA 

141,33,  3: REM  STA  CHKVEKH 

159 

DATA 

136 

REM 

DEY 

205 

DATA 

144, 

6 

REM 

BCC 

K 

251 

DATA 

72 

REM 

PHA 

114  DATA 

169,  55  :R£M  *  LDA  ifCHROUTL 

160 

DATA 

240,  30 

REM 

BEQ 

G 

206 

DATA 

169, 

32 

REM 

Z 

LDA 

#SPACE 

252 

DATA 

232 

REM 

INX 

115  DATA 

141,  38,  3: REM  STA  CHRVEKL 

161 

OATA 

136 

REH 

DEY 

207 

DATA 

72 

REM 

PHA 

253 

DATA 

152 

REM 

TYA 

116  DATA 

169,  30  : REM  *  LDA  «CHKOUTL 

162 

DATA 

208,244 

REM 

BNE 

0 

208 

DATA 

232 

REM 

INX 

254 

DATA 

208, 

3 

REM 

8NE 

U 

117  DATA 

141,32,  3: REM  STA  CHKVEKL 

163 

DATA 

192,119 

REM 

E 

CPY 

#L ISTCOD 

209 

DATA 

169, 

96 

REM 

LDA 

#J0KER 

255 

118  DATA 

96  :REM  RTS 

164 

OATA 

144,  8 

REM 

BCC 

F 

210 

256 

OATA 

238, 

0, 1 25 : REM 

T*  INC 

32000 

119  : 

165 

DATA 

36,  15 

REM 

BIT 

LISTFLAG 

211 

DATA 

72 

REM 

K 

PHA 

257 

120  REM 

CHKOUT 

166 

DATA 

48,  4 

REM 

BMI 

F 

212 

258 

REM 

AUSGABE 

87 
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259 

279 

DATA 

27. 

52, 

0 

2 

REM 

1  1/2  ZG 

260 

DATA 

72 

REM 

(J  PHA 

280 

DATA 

27, 

51, 

0 

3 

REM 

2 

ZEILIG 

261 

DATA 

173, 

13 

221 

REM 

V  LDA  FLAG 

281 

DATA 

27, 

80, 

0 

21 

REM 

10 

Z/ZEILE 

262 

DATA 

41, 

16 

REM 

AND  #16 

282 

DATA 

27, 

59, 

0 

22 

REM 

12 

Z/ZEILE 

263 

DATA 

240, 

749 

REM 

BEQ  V 

283 

DATA 

27, 

77, 

0 

23 

REM 

15 

Z/ZEILE 

264 

DATA 

104 

REM 

PLA 

284 

DATA 

27, 

85, 

0 

25 

REM 

HZ 

VOR 

265 

DATA 

141, 

1 

221 

REM 

STA  PORT 

285 

DATA 

27. 

68, 

0 

26 

REM 

HZ 

RUECK 

266 

DATA 

202 

REM 

0EX 

286 

DATA 

112. 

6. 

05 

255 

REM 

P 

267 

DATA 

208, 

75 

REM 

BNE  L 

287 

DATA 

96, 

94, 

39 

94 

REM 

T 

268 

DATA 

166, 

98 

REM 

LDX  98 

288 

DATA 

62, 

0, 

0 

64 

REM 

0 

269 

DATA 

164, 

99 

REM 

LDY  99 

289 

DATA 

14, 

47, 

15 

62 

REM 

> 

270 

DATA 

24 

REM 

CLC 

290 

DATA 

14, 

45, 

15 

60 

REM 

< 

271 

DATA 

96 

REM 

RTS 

291 

DATA 

123, 

0, 

0 

166 

REM 

KL 

AE 

ä 

272 

292 

DATA 

124, 

0, 

0 

220 

REM 

KL 

0E 

ö 

273 

REM 

OLYMP 1AÜATEN 

293 

DATA 

125, 

0. 

0 

168 

REM 

KL 

UE 

ü 

274 

294 

DATA 

126, 

0, 

0 

92 

REM 

SZ 

ß 

275 

DATA 

13, 

10, 

0 

13 

REM  CR  MIT  LF 

295 

DATA 

91, 

0, 

0 

219 

REM 

GR 

AE 

Ä 

276 

DATA 

13, 

0, 

0 

11 

REM  OHNE  LF 

296 

DATA 

92, 

0, 

0 

221 

REM 

GR 

0E 

Ö 

277 

DATA 

32, 

0, 

0 

160 

REM  SHIFTSPACE 

297 

DATA 

93, 

0, 

0 

169 

REM 

GR 

UE 

Ü 

278 

DATA 

27, 

54, 

0 

1 

REM  1  ZEILIG 

298 

DATA 

64, 

0, 

0 

164 

REM 

PARAGR 

§ 

299 

DATA 

14, 

44,  15, 186: REM 

TEILUNG 

319 

DATA 

95, 

6, 

49, 144: REM 

SCHWARZ 

"T 

300 

DATA 

94, 

0,  0,223:REM 

AKZ.94 

320 

DATA 

95, 

6, 

50,  5: REM 

WEISS 

"Z 

301 

DATA 

95, 

6,  0 , 1 92 : REM 

UNT+RT 

“ 

321 

DATA 

95, 

6, 

51,  28: REM 

ROT 

"3 

302 

DATA 

14, 

42,  15,  91 :REM 

QUADRAT 

irr 

322 

DATA 

95, 

6, 

52, 159: REM 
53,156: REM 

CYAN 

303 

DATA 

14, 

95, 

43,  15,  93: REM 
6,117, 145 : REM 

KUBIK 

113 

323 

DATA 

95, 

6, 

PURPUR 

"F 

304 

DATA 

CURS  U 

"u 

324 

DATA 

95, 

6, 

54,  30: REM 

GRUEN 

”F 

305 

DATA 

95, 

6,100,  17: REM 

CURS  D 

325 

DATA 

95, 

6, 

55,  31 :REM 

BLAU 

"7 

306 

DATA 

95, 

95, 

6,108,157: REM 
6,114,  29: REM 

CURS  L 

•T 

326 

DATA 

95, 

6, 

56, 158: REM 

GELB 

"5 

307 

DATA 

CURS  R 

"r 

327 

DATA 

95, 

6, 

57,  18 : REM 

RVS 

"7 

308 

DATA 

95, 

6,  99 , 147 : REM 

CLR 

"c 

328 

DATA 

95, 

6, 

48,146:REM 

RVS  OFF 

"ff 

309 

DATA 

95, 

6,104,  19: REM 

HOME 

"TT 

329 

DATA 

95, 

6, 

78,  1 4 : REM 

KLEIN 

lfFT 

310 

DATA 

95, 

6 , 1 03 , 1 42 : REM 

GROSS 

"g 

330 

DATA 

95, 

6, 

72,  8:REM 

UMBLOCK 

'TT 

311 

DATA 

95, 

6,  33, 129: REM 

ORANGE 

"T 

331 

DATA 

95, 

6, 

73,  9:REM 

UMFREI 

'T 

312 

DATA 

95, 

6,  34 , 149 : REM 

BRAUN 

iit r 

332 

DATA 

95, 

6, 

70,  6 : REM 

RUECK 

"F 

313 

DATA 

95. 

6,  35, 150: REM 

HELLROT 

"? 

333 

DATA 

95, 

6, 

75,  1 1 :  REM 
85,  21 :REM 

CR 

'V. 

314 

DATA 

95, 

6,  36,151 :REM 

GRAU  1 

"¥ 

334 

DATA 

95, 

6, 

10  Z/Z 

"ff 

315 

DATA 

95, 

6,  37, 152: REM 

GRAU  2 

'1 

335 

DATA 

95, 

6, 

86,  22: REM 

12  Z/Z 

"V 

316 

DATA 

95, 

6,  38,153:REM 

H.GRUEN  "I 

336 

DATA 

95, 

6, 

87,  23: REM 

15  Z/Z 

w 

317 

DATA 

95, 

6,  39, 154: REM 

H.BLAU 

irr 

337 

DATA 

95, 

6, 

89,  25: REM 

HZ  VOR 

"V 

318 

DATA 

95, 

6,  40, 155: REM 

GRAU  3 

T 

338 

DATA 

95, 

6, 

90,  26: REM 

HZ  RUECK"? 

Listing:  Interface  für  Olympia  Compact  2  (Schluß) 


Hardcopy 
Epson  FX-80 

Ich  bin  ein  Freund  der  guten  Hires-Darstellungen.  Mein 
Basic-Programm  ermöglicht  es,  den  Epson  voll  in  seiner  Fähig¬ 
keit  des  Plottens  auszunutzen  und  das  Bild  zu  verändern,  das 
heißt: 

1.  Veränderung  der  Punktdichte 

2.  Veränderung  der  Darstellung 

Für  jede  Veränderung  müssen  nur  eine  beziehungsweise 
mehrere  Variablen  geändert  werden.  Das  Programm  eignet 
sich  natürlich  auch  für  mathematische  Funktionen  oder  ähnli¬ 
ches.  Das  Programm  arbeitet  problemlos  mit  dem  Centronics- 
Interface  von  Data  Becker. 

(Mark  Zimmermann/rg) 


Listing  »Hardcopy  Epson  FX-80« 

0  OPEN  1 , 4 , 1 :  PR I NT#1  , CHE*-  (27)  ;  "L"  ;  CHRS  ( 64 
>  :  CHR* ( 1 ) ; 

2  DIM  5(7,7) :L=0:Q=B192 

3  ft=  1 28  8=64 :  C=32 :  D=  1 6 :  E=8  :  F=4 :  G=2 :  H=  1 

4  F0RL=1T025 

6  FGRR=QTGG+320STEP8 
3  FORN=0TO7 
13  M=R+N 

1 1  PR I NTM : PR I NT “  dj" 

12  X=PEEK (M) 

23  IF  X >=A  THEN  X=X-A:G05UE  1000:S(N,0)= 
1 : GOTO  30 

29  GOSUB  2000 : S ( N , 0 ) =0 

30  IF  X >=B  THEN  X=X-B:G03ÜE  1000:S(N,1)  = 
1 : GOTO  50 

40  GOSUB  2000: S (N , i ) =0 


50  IF  X>=C  THEN  X=X-C: GOSUB  1003: 5 <M, 2) = 
1 : GOTO  73 

60  SOSUB  2000; S<N, 2) =0 

70  IF  X >=D  THEN  X=X-D: GOSUB  10GH3:S  (N,3)  = 
1 : GOTO  90 

80  GOSUB  2200:S(N,3)=0 

90  IF  X >=E  THEN  X=X~E: GOSUB  1003: 5 (N, 4)  = 
1:0  31 13 

100  GOSUB  2030:3  <N ,4) =0 

110  IF  X>=F  THEN  X=X-F: GOSUB  1000: SCN, 5) 
=1: GOTO 130 

120  GOSUB  2000: S (N, 5) =0 

130  IF  X >=G  THEN  X  =  X-G: GOSUB  1000s SCN, 6) 
=1 : GOTO 150 

140  GOSUB  2000: S (N , 6) =0 

150  IF  X=HTHEN  GOSUB  1000: S (N, 7) =1 : G0T03 
030 

163  GOSUB  2000: S (N,7> =0 

160  NEXTN: GOTO300S : REM***  WENN  MEHR  DATA 
S  DANN  G0T04 !  *** 

1000  REM  PRINT"*"; 

1010  RETURN 
2030  REMPRINT" . " ; 

2010  RETURN 

3300  A=0  : REM  ***  UMWANDLUNG  DER  WERT I KA 
LEN  DAT AS  IN  HORIZONTALDATAS  *** 

4001  REM  ***  UMWANDLUNG  DER  HÖR I ZONALEN 
DATAS  IN  EPSON  DAT AS  *** 

4010  FORN=0T07 

4011  J=SC0,N)*12S+ <S< 1,N)*64)+CSC2,N>*32 
)+CB(3,N)*16+S(4,N)*8) 

40 1 5  K ( N ) = J+ ( S (5 , N  >  *4 )  +  ( S ( 6 , N ) *2) +3  C  7 , N  > 
4020  PR I NT# 1 , OHR* ( K ( N ) ) ; 

4330  NEXTN: NEXTR: 

4040  Q =0+320 : PR I NT# 1 , OHR* (13); OHR* ( 27 ) ; ” 

L" ; OHR* (64) ; OHR* (1 ) ; : NEXTL 

4050  REM  *+*  BASIC  HARDCOPY  *** 

4060  REM  ***  BY  MARK  ZIMMERMANN  *** 

4070  REM  ***  POSTFACH  22  00  44  *** 

4GS0  REM  ***  STADTWALDWENDE  20  *** 

4090  REM  *+*  D  -  4303  ESSEN  01  *** 

5000  REM  ***■  FÜR  C=64  &  EPSON  *** 

READY . 
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Tips  &  Tricks 


Listschutz 


Möchte  man  ein  Programm  mit  einem  einfachen  Listschütz 
versehen,  so  verfährt  man  folgendermaßen: 

1.  Man  ergänzt  die  Zeile,  ab  der  der  Listschütz  wirksam  wer¬ 
den  soll,  mit  »:REM”  ”«. 

2.  Man  fährt  mit  dem  Cursor  auf  das  zweite  Anführungszei¬ 
chen  und  drückt  fünfmal  die  Taste  INST. 

3.  Nun  wird  ebenfalls  fünfmal  die  Taste  DEL  gedrückt,  so  daß 
zwischen  den  Anführungszeichen  fünf  reverse  T  stehen. 

4.  Zuletzt  bewegt  man  den  Cursor  hinter  das  zweite  Anfüh¬ 
rungszeichen  und  drückt  die  Tastenkombination  SHIFT  und  L. 
Anschließend  RETURN  nicht  vergessen. 

Wenn  nun  versucht  wird,  das  Programm  zu  listen,  gelangt 
der  Computer  nur  bis  zu  der  Zeile,  in  der  der  Listschutz  steht 
und  bricht  dann  den  Vorgang  mit  »Syntax  Error«  ab. 

(Thomas  Lopatic) 


C  64  beschleunigt 


Für  alle  diejenigen  C  64  -  Besitzer,  denen  die  Bewegung  des 
Cursors  bisher  zu  langsam  war,  gibt  es  einen  speziellen  POKE. 

Mit  POKE  56325,5  wird  der  Cursor  rasend  schnell  und  flitzt 
bei  Betätigung  der  Cursortasten  nur  noch  so  über  den  Bild¬ 
schirm.  Wer’s  lieber  gemütlicher  mag,  der  sollte  es  statt  des¬ 
sen  einmal  mit  POKE  56325,255  probieren. 

(Oliver  Bausch) 


Text  und  Grafik  mischen 


Im  Leserforum  des  64’er  Magazins,  Ausgabe  8/84,  fragte 
Frank  Schager  nach  einer  Möglichkeit,  mit  Simons  Basic  ein 
Textfenster  in  der  hochauflösenden  Grafik  zu  erzeugen. 

Mit  dem  folgenden  kleinen  Programm  wird  die  normale  Ta¬ 
staturabfrage  mitdem  Simons  Basic-Befehl  »TEXT«  verbunden: 

10  X  =  2  :  Y  =  2  :  REM  Text- Anfang 
20  HIRES  15,  11  :  REM  Grafik  ein 
30  GET  A$ 

40  IF  A$  <  >  ”  ”THEN  GOSUB  100 
50  GOTO  30 
60  REM 

100  X  =  X  4-  8  :  REM  X-Koordinate  erhöhen 
110 IFX  >  38  *  8THEN  X=2:Y  =  Y  +  8:  REM  Zeilenen¬ 
de  ?  Dann  neue  Zeile 

120  TEXT  X,Y,A$, 1,1,8  :  REM  Zeichen  drucken 

130  AAS  =  AAS  4-  A$  :  REM  Wort  erzeugen 

140  IF  AAS  =  "GEHE”  THEN  1000  :  REM  Zum  Beispiel 

150  RETURN 

Natürlich  kann  man  die  Anfangskoordinaten  so  verändern, 
daß  sie  zum  Spiel  passen.  Veränderbar  ist  auch  der  Faktor  38 
in  Zeile  1 10,  je  nachdem,  welche  Zeilenlänge  gewünscht  wird. 
Ebenso  besteht  die  Möglichkeit,  zwischen  den  Zeilen  130 
und  150  weitere  IF-Abfragen  einzubauen.  Empfehlenswert  ist 
die  besondere  Abfrage  der  Tasten  SPACE  und  RETURN. 

(Jörg  Prante) 


Textomat-Tip 


Bei  Ihrem  Software-Test  des  Textomat  von  Data-Becker 
(Ausgabe  9/84)  wurde  als  gravierender  Nachteil  angeführt, 
daß  bei  einmal  gestartetem  Ausdruck  keine  Unterbrechung 
mehr  möglich  ist.  Ich  arbeite  in  Zusammenhang  mit  Textomat 
mit  einem  Epson-Drucker  RX  80  F/T.  Um  den  begonnenen 
Ausdruck  zu  unterbrechen,  kann  man  einfach  den  ON-LINE- 
Schalter  betätigen  und  den  Drucker  anschließend  ausschal¬ 
ten.  Sekunden  später  meldet  sich  der  Textomat  am  Bildschirm 
mit  dem  zu  druckenden  Text  zurück. 

(H.  Rendelmann) 


Basic-Programme  verbinden 


So  manch  einen  C  64-Besitzer  wird  es  schon  geärgert  ha¬ 
ben,  daß  sein  Computer  keinen  MERGE-Befehl  besitzt.  Mit 
wenig  Aufwand  ist  es  aber  dennoch  möglich,  Basic- 
Programme  aneinanderzuhängen: 

1.  Im  Direktmodus  »PRINT  PEEK(43);  PEEK(44)«  eingeben 
und  sich  die  Ergebnisse  merken. 

2.  Das  erste  Programm  normal  laden. 

3.  Erscheint  jetzt  nach  »PRINT  PEEK(45)«  eine  Null  oder  ei¬ 
ne  Eins,  dann  geben  Sie  »POKE  43,  256  4-  PEEK(45)  -  2  : 
POKE  44,  PEEK(46)  - 1  :  NEW«  ein.  Im  anderen  Fall  wird  »PO¬ 
KE  43,  PEEK(45)  -  2  :  POKE  44,  PEEK(46) :  NEW«  eingege¬ 
ben. 

4.  Nun  wird  das  anzuhängende  Programm  geladen  (Ach¬ 
tung!  Das  anzuhängende  Programm  muß  die  höheren  Zeilen¬ 
nummern  haben). 

5.  * :zt  POKEn  Sie  in  die  Speicherstellen  43  und  44  die  zu 
Anfang  gemerkten  Werte. 

Beide  Programme  sind  nun  verbunden  und  können  ganz 
normal  gehandhabt  werden.  Wichtig  bei  der  ganzen  Prozedur 
ist,  daß  keine  Variablen  definiert  werden,  da  das  MERGEn 
sonst  nicht  richtig  funktioniert. 

(Thomas  Lopatic) 


POKEs  für  den  C  64 


Mit  POKE  775,  1  ist  ein  (fast)  perfekter  Listschutz  aktiviert. 
Auch  ein  SAVE-Schutz  ist  mit  wenig  Aufwand  möglich:  POKE 
801,0  :  POKE  802,0  :  POKE  818,165.  Nach  diesen  drei 
POKE-Befehien  kann  das  Programm  weder  auf  Kassette  noch 
auf  Diskette  kopiert  werden.  Schließlich  gibt  es  noch  eine 
Möglichkeit,  die  RUN/STOP-Taste  abzuschalten,  und  zwar  mit 
POKE  808,225.  Wiedereinschalten  ist  mit  POKE  808,237 
möglich. 

(Thomas  lopatic) 


GOTO  X  für  VC  20 


Viele  schätzen  es,  viele  wünschen  es  sich:  Einen  berechne¬ 
ten  GOTO-Befehl  auf  einen  variablen  Ausdruck  anstelle  einer 
Zeilennummer.  Hier  ist  eine  schnelle  und  sichere  Methode,  die 
nur  17  Bytes  Speicherplatz  benötigt. 

Schreiben  Sie  als  erste  Programmzeile  »1  REM 
”*********”«  (mindestens  neun  Sternchen).  Anschließend 
geben  Sie  im  Direktmodus  ein: 

»PRINT  PEEK(43)  +  PEEK(44)  *  256  4-  6«  (RETURN).  Die 
daraufhin  angezeigte  Adresse  notieren  Sie  sich  bitte.  Ohne  Er¬ 
weiterung  müßten  Sie  den  Wert  4103  erhalten  haben,  mit  3 
KByte  Erweiterung  1031  und  ab  8  KByte  Erweiterung  4615. 

89 
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Jetzt  POKEn  Sie  ab  der  notierten  Adresse  bitte  folgende 
Werte  ein:  32,  138,  205,  32,  247,  215,  76,  163,  200. 

Wenn  Sie  nun  die  erste  Zeile  (mit  dem  REM)  aufLISTen,  se¬ 
hen  Sie  einige  Grafikzeichen.  Diese  stellen  ein  kurzes  Maschi¬ 
nenspracheprogramm  dar,  das  einen  mathematischen  Aus¬ 
druck  in  einen  ganzzahligen  Wert  umrechnet.  Diese  Zeile  muß 
immer  die  erste  Programmzeile  sein  und  darf  auch  nicht  mehr 
geändert  werden.  Das  übrige  Programm  kann  natürlich  wie  ge¬ 
wohnt  editiert  werden. 

Sie  haben  jetzt  im  Programm  einen  simulierten  GOTO  X  -  Be¬ 
fehl  zur  Verfügung,  der  mit  SYS  (Adresse)  X  aufgerufen  wird. 
Für  Adresse  müssen  Sie  die  anfangs  notierte  Adresse  erset¬ 
zen  (Klammern  nicht  vergessen).  Für  X  kann  ein  beliebiger 
arithmetischer  Ausdruck  stehen  wie  zum  Beispiel  5,  A,  A+2, 
C+D/SQR(9)  oder  PEEK(5).  • 

Der  neue  Befehl  hat  im  übrigen  die  gleichen  Auswirkungen 
wie  der  normale  GOTO-Befehl.  Ist  eine  Zeilennummer  nicht 
vorhanden,  gibt  es  daher  ebenfalls  einen  »UNDEF’D  STATE¬ 
MENT  ERROR«. 

(Thomas  Maul) 


Das  Programm  FLIST  belegt  134  Bytes  im  Kassetten  puffer 
des  C  64.  Es  wird  mit  LOAD”FLIST.DATA”,  8  geladen  und  mit 
RUN  gestartet.  Dabei  wird  das  ,  in  DATA-Zeilen  stehende  Pro¬ 
gramm  im  Speicher  ab  828  abgelegt  und  mit  SYS  gestartet. 
Die  Zeile  10,  die  diese  Dinge  erledigt,  dient  später  als  Demon¬ 
strationszeile.  Nun  zur  Funktion: 

Das  Programm  erweitert  das  Basic  um  den  Befehl  FLIST. 
Dieser  Befehl  erzeugt  ein  formatiertes  Listing  auf  dem  Bild¬ 
schirm,  indem  vor  der  Ausgabe  eines  Zeichens  geprüft  wird, 
ob  dieses  Zeichen  ein  »:« ist.  Trifft  dies  nicht  zu,  so  wird  das  ’LI- 
STen’  fortgesetzt.  Andernfalls  erzeugt  das  Programm  ein  »CR« 
(Carriadge  Return)  und  fügt  eine,  von  der  Länge  der  Zeilen¬ 
nummer  abhängige  Anzahl  von  Leerzeichen  ein.  Dadurch  ste¬ 


hen  alle  in  einer  Zeile  vorhandenen  Doppelpunkte  untereinan¬ 
der  und  unter  dem  Leerzeichen  nach  der  Zeilennummer.  Jeder 
Befehl,  vor  dem  ein  Doppelpunkt  steht,  erscheint  so  in  einer 
neuen  Zeile.  Die  Angabe  der  Zeilennummer(n)  erfolgt  bei 
FLIST  wie  beim  normalen  LIST-Befehl  (zum  Beispiel 
FLIST-100).  Zum  Editieren  einer  Zeile  steht  dem  Benutzer  wei¬ 
terhin  der  normale  LIST-Befehl  zur  Verfügung.  Versuchen  Sie 
mal  FLIST10!  Benutzer  eines  Druckers  könnten  ja  mal 
OPEN1,4:FLIST:close1  ausprobieren. 


(Michael  Weidlich/rg) 


10  F0RI=828T0962:  ;  READ- J ", 

PÜKEI , J: 

:  NE 

<TI : : SYSB28: : END 

100 

DATA 169 ,71 , 141 ,8 

110 

DAT  A3 , 1 69 ,3,141 

120 

DAT AR ,3,96, 32 

138 

DATA1 15,3,231 , 155 

148 

DATA240, 13,231 ,70 

150 

DAT  A243 , 25 , 32 ,121 

160 

DAT A3, 76, 231, 167 

178 

DATA169,26, 141 ,6 

130 

DATA3,169, 167, 141 

198 

DAT  A7 , 3 , 32 ,115 

288 

DAT A3 ,32, 156, 166 

21S 

DATA76 , 174, 167,32 

22S 

DATA1 15,8, 201 , 155 

230 

DAT  A240 ,3,76,8 

248 

DATA 175 . 169 , 138, 141 

252  0ATA6,3, 169,3 

268 

DATA141 ,7,3,76 

270 

DATA9S, 3,8,36 

230 

DATA15, 48,4,231 

298 

DATA58, 248,4, 48 

303 

DATA76  ,26 , 167,72 

318 

DAT Al 38, 72, 152,72 

32S 

DATA16S, 2, 177,95 

338 

DATA 1 33 , 99 , 238 , 1 77 

348 

DATA95 , 133,98,162 

350 

DATA 1 44 , 56 , 32 , 73 

368 

DATA 1 88 , 32 , 223 , 1 89 

373 

DATA32 ,135, 1 83 , 32 

383 

DATA166, 182,173, 169 

393 

DAT Al. 3, 32, 12,225 

430 

DATA32 , 59 ,171 ,202 

418 

DATA2E8,25B, 184, 168 

428 

DATA184, 170, 104,40 

430 

DATA76, 26, 167 

READY . 

PRUEFSUMMENL I STE 

BLQCKGROESSE  20 

ZEILE 

ANZAHL 

SUMME 

KEIN  POKE? 

148 

23 

1837 

198 

40 

3788 

240 

63 

5924 

293 

80 

7887 

340 

100 

9393 

390 

128 

11673 

GESAMT 

135 

13559 
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Kudiplo  auch 
für  den  C  64 

ln  der  Ausgabe  8  des  64’er  Magazins 
war  das  Programm  »Kudiplo«  für  den 
VC  20  abgedruckt,  das  mit  dem 
1520-Printer-Plotter  eine  komplette 
Kurvendiskussion  ausgibt.  Hier  sind 
die  erforderlichen  Änderungen,  um 
dieses  nützliche  Programm  auch  auf 
dem  C  64  laufen  zu  lassen. 

Nach  der  Veröffentlichung  meines  Programms  Kudiplo  für 
den  VC  20,  erreichten  mich  viele  Leserbriefe  mit  der  Bitte  um 
nähere  Auskunft  dazu,  wie  das  Programm  für  den  C  64  abzu¬ 
ändern  ist.  Probleme  gab  es  dabei  mit  der  Routine  in  den  Zeilen 
185,  190  und  230. 


Die  genannten  Zeilen  bewirken  in  der  veröffentlichten  Ver¬ 
sion  für  den  VC  20  ein  »Verbiegen«  des  Vektors  für  die  Fehler¬ 
behandlungsroutine.  Der  in  den  Speicherstellen  $0300  und 
$0301  stehende  Zeiger  wird  so  verändert,  daß  er  nicht  mehr 
zu  der  im  Basic-ROM  stehenden  Routine  zur  Ausgabe  von 
Fehlermeldungen  zeigt.  Statt  dessen  zeigt  er  nun  auf  einen 
Sprungbefehl,  der  mit  Hilfe  der  Zeile  1 85  in  den  Kassettenpuf¬ 
fer  geschrieben  wurde.  Dieser  Sprungbefehl  führt  zurück  ins 
Basic-Programm,  dessen  nächste  Zeile  gesucht  und  so  abge¬ 
arbeitet  wird,  als  sei  kein  Fehler  aufgetreten. 

Die  Ähnlichkeit  des  VC  20  mit  seinem  großen  Bruder  ist  oft 
zitiert.  Auch  bei  ihm  läßt  sich  eine  solche  Fehlerblockade  ein¬ 
richten.  Allerdings  ist  beim  großen  Bruder  zu  diesem  Zweck 
ein  kleines  Maschinenprogramm  in  den  Kassettenpuffer  zu 
schreiben,  in  welchem  abgefragt  wird,  ob  ein  Fehler  vorgekom¬ 
men  ist  und  das  dann  abhängig  vom  Ergebnis  entweder  zum 
nächsten  Statement  oder  zur  nächsten  Zeile  verzweigt. 

Für  den  C  64  müssen  darum  die  Zeilen  185  und  230  wie 
folgt  geändert  werden: 

185  DATA  138,  48,  3,  76,  59,  169,76,  116, 164  :  FOR  1=823 
TO  840  :  READ  A  :  POKE  I,  A  :  NEXT 
230  NEXT  :  POKE  768,  139  :  POKE  769,  227 
Mit  diesen  Änderungen  läuft  Kudiplo  dann  endlich  auch 
auf  dem  »großen  Bruder«. 

(Jürgen  Curdt/ev) 


POKE  mal 
wieder 


Viele  C  64-Benutzer  haben  sich  sicher 
schon  mit  dem  Basic  des  C  64  herum¬ 
geärgert:  Egal,  was  man  machen  will, 
fast  alles  läuft  über  PEEK  und  POKE. 
Doch  gerade  diese  POKEs  helfen 
manchmal  erheblich,  wenn  es  um  Pro¬ 
bleme  geht,  die  mit  einfachen  Basic- 
Befehlen  nicht  zu  lösen  sind. 


Hier  nun  eine  Liste  von  wichtigen  PEEKs,  POKEs  und  SYS- 
Befehlen. 

1  Inhalt  55  =  normal 

Inhalt  54  =  Basic  ausgeschaltet  (auf  RAM 
umgestellt) 

Inhalt  53  =  Basic  und  Kernal  auf  RAM  umge¬ 
stellt. 

(Es  empfiehlt  sich  dabei,  das  Basic  und  das 
Kernal  vorher  ins  RAM  zu  POKEn,  damit  der 
Computer  bei  der  Umschaltung  nicht  aus¬ 
steigt.) 

17  Mit  diesem  PEEK  läßt  sich  abfragen,  wie  die 

letzte  Variable  zugewiesen  wurde.  Ist 
PEEK(17)  =  00,  dann  war  die  letzte  Varia¬ 


blenzuweisung  ein  IN  PUT,  oder  es  hat  noch 
keine  Zuweisung  stattgefunden. 

Ist  PEEK(17)  =  64,  dann  wurde  die  letzte  Va¬ 
riable  durch  GET  geholt. 

Bei  PEEK(17)  =  152  erfolgte  die  letzte  Varia¬ 
blenübergabe  durch  einen  READ-Befehl. 
Durch  POKE  19,64  wird  beim  nächsten 
INPUT-Befehl  kein  Fragezeichen  mehr  ausge¬ 
geben.  Allerdings  kann  man  nachher  durch 
Drücken  der  RETURN-Taste  nicht  mehr  in  die 
nächste  Zeile  gelangen.  Es  empfiehlt  sich  da¬ 
her,  nach  dem  INPUT-Befehl  diesen  Befehl 
wieder  mit  POKE  19,0  rückgängig  zu  ma¬ 
chen. 

43/44  Der  Anfang  des  zur  Zeit  im  Speicher  befindli¬ 
chen  Basic- Programms  errechnet  sich  durch 
PEEK(43)  +  PEEK(44)  *  256. 

45/46  Das  Ende  des  Basic- Programms  erhält  man 
durch  ?PEEK(45)  +  PEEK(46)*256. 

61/62  Zeiger  auf  Basic-Statement  für  CONT:  Durch 
PEEK(61)  + PEEK(62)*  256  erhält  man  die 
Speicherstelle,  die  nach  dem  zuletzt  ausge¬ 
führten  Basic-Befehl  liegt,  das  heißt  die  Spei¬ 
cherstelle,  von  der  sich  der  Basic-Interpreter 
bei  CONT  den  nächsten  Befehl  holt. 

Tip:  Bei  CONT  kommt  öfter  CANT  CONTI- 
NUE  ERROR  vor,  wenn  man  nach  dem  Stop¬ 
pen  ein  CLR  eingegeben  oder  in  irgendeiner 
Programmzeile  etwas  geändert  hat.  Liest  man 
die  Werte  mit  PEEK(61)  und  PEEK(62)  nach 
der  Unterbrechung  aus,  dann  macht  ein  CLR 
oder  ähnliches  nichts  aus,  wenn  man  vor 
CONT  die  zuvor  ausgelesenen  Werte  wieder 
in  die  Speicherstellen  POKEt. 

63/64  Nummer  der  aktuellen  DATA-Zeile: 

Mit  ?PEEK(63)  +  PEEK(64)*256  erhält  man 
die  Nummer  der  DATA-Zeile,  aus  der  gerade 
das  letzte  Datum  geholt  wurde.  (Gut  zum  Fin¬ 
den  von  Fehlern  in  DATA-Zeilen  geeignet.) 

69/7 0  Name  der  zuletzt  zugewiesenen  Variable: 

Bei  normalen  Fließkommavariablen  liest  man 
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den  Wert  mit  PRINT  CHR$(PEEK(69))  + 
CHR$(PEEK(70))  aus. 

Bei  Integervariablen  (zum  Beispiel  XY%)  er¬ 
hält  man  den  Namen  durch 
?CHR$(PEEK(69)-128)+CHR$(PEEK(70)- 
128). 

Strings  (zum  Beispiel  VX$)  erhält  man  durch 
?CHR$(PEEK(69))-fCHR$(PEEK)70)-128). 

120  Nach  Ausführung  dieses  POKEs  nimmt  der  C 

64  keinerlei  Befehle  mehr  an: 

POKE  120,2 

147  Wenn  man  die  LOAD-Routine  im  Betriebssy¬ 

stem  anspringt,  holt  es  sich  aus  der  Spei¬ 
cherstelle  147  die  Information,  ob  LOAD  oder 
VERIFY  durchgeführt  wird. 

Inhalt  0  =  LOAD 
Inhalt  4  =  VERIFY 

157  Ausgabe-Kontrolle: 

Inhalt  000  =  Programm-Modus 
Inhalt  128  =  Direktmodus 
Damit  bei  LOAD-Befehlen  vom  Programm  aus 
die  Mitteilungen  SEARCHING,  LOADING  oder 
VERIFYING  auf  dem  Bildschirm  erscheinen, 
setzt  man  vor  dem  LOAD-VERIFY-  oder  SAVE- 
Befehl  ein  POKE157,128. 

1 9  7  Derzeitiger  Tastendruck: 

PEEK(197) 

200  Zeiger  auf  Zeilenende.  PEEK(200)  gibt  an, 

wieviel  Zeichen  die  zuletzt  eingegebene  Zei¬ 
le  hatte. 

204  Nach  POKE  204,0  bleibt  der  Cursor  an, 

auch  bei  GET-Befehlen.  Mit  POKE 
207,0:POKE  204,1  kommt  man  dann  wieder 
auf  den  Normalzustand  zurück. 

641-644  Start-  und  Endadresse  des  Basic-RAMs: 

Durch  Ändern  dieser  Werte  kann  man  die 
Größe  des  Basic-RAMs  verändern,  zum  Bei¬ 
spiel: 

POKE  643,0  :  POKE  644,128  :  SYS 
64764  setzt  das  Ende  des  Basic-RAMs  um 
8  KByte  nach  unten.  Anderes  Beispiel:  PO¬ 
KE  641,0  :  POKE  642,16  :  SYS  64764 
setzt  das  Basic-RAM  um  2  KByte  nach 
oben. 

POKE  646,Farbwert  setzt  die  Cursorfarbe. 
PEEK  für  Shift-,  Commodore-  und  für  CTRL- 
Taste: 

Bit  0  =  Shift-Taste,  Bit  1  =  Commodore- 
Taste  und  Bit  2  =  Control-Taste. 

IRQ,  Hardware-Interrupt:  Das  Betriebssystem 
springt  ständig  in  diese  Routine,  durch  Än¬ 
dern  des  Inhalts  kann  man  eigene,  »interrupt¬ 
gesteuerte«  Maschinenroutinen  ständig  lau¬ 
fen  lassen. 

Restore-Vektor:  PEEK(792)  + 
PEEK(793)*256  ergibt  die  Speicherstelle, 
an  die  bei  Restore-Tastendruck  gesprungen 
wird. 

Beispiel:  Bei  POKE  792,226  :  POKE 
793,252  wird  bei  Drücken  der  Restore-Taste 
ein  Reset  ausgelöst. 

828-1019  Kassettenpuffer:  Nach  Laden  oder  Verify 

stehen  im  Kassettenpuffer  folgende  Informa¬ 
tionen: 

828:  1  =  normales  File,  3  =  wurde  mit 
SAVE”Name”,1,1  abgespeichert.  Solche  Pro¬ 
gramme  werden  bei  LOAD  automatisch  ab 
der  Adresse  geladen,  von  der  sie  abgespei- 


646 

653 


788/789 


792/793 


chert  wurden. 

829/830:  Hier  ist  die  Startadresse  des  Pro¬ 
gramms  abgelegt  (829  ist  das  Low-Byte, 

830  das  High-Byte). 

831/832:  Endadresse  des  Programms. 
833-1019:  186  Zeichen  langer  Programmna¬ 
me  (auf  dem  Bildschirm  werden  nur  16  an¬ 
gezeigt,  aber' es  lassen  sich  bis  186  Stellen 
lange  Programmnamen  abspeichern). 

Der  Kassettenpuffer  ist  auch  gut  zum  Able¬ 
gen  eigener  Maschinenprogramme  geeignet, 
sofern  mit  der  Floppy  gearbeitet  wird. 

42291  Koppeladressen  angleichen:  Falls  Program¬ 

me  mit  NEW  gelöscht  wurden,  kann  man  mit 
diesem  SYS-Befehl  die  Bytes  2049  und 
2050  wieder  in  Ordnung  bringen,  wenn  vor¬ 
her  etwas  anderes  als  0  in  diese  Speicher¬ 
zellen  gePOKEt  wird. 

56320  Joystick  Port  2: 

WAIT  56320,16,16  wartet  auf  Feuerknopf 
WAIT  56320,4,4  wartet  auf  Linksbewegung 
des  Joysticks 

WAIT  56320,1,1  wartet  auf  Joystick  nach 
oben 

WAIT  56320,2,2  wartet  auf  Joystick  nach 
unten 

WAIT  56320,8,8  wartet  auf  Joystick  nach 
rechts 

Wie  56320,  aber  Joystick  in  Port  1. 

Mit  PEEK(56576)  kann  man  die  Pins 
PB0-PB7  vom  User-Port  (auf  der  Unterseite 
des  Ports,  siehe  Handbuch)  auslesen.  Mit 
POKE  in  diese  Speicherstelle  kann  man 
auch  Ausgaben  über  den  User-Port  laufen 
lassen. 

Datenrichtungsregister  für  User-Port:  Jedes 
der  Bits  gibt  die  Datenrichtung  für  die  Pins 
PB0-PB7  des  User-Ports  an.  Ist  das  ent¬ 
sprechende  Bit  gesetzt,  so  fungiert  der  dem 
Bit  zugeordnete  Pin  als  Ausgang,  bei  nicht 
gesetztem  Bit  als  Eingang. 

65409  SYS  65409  setzt  den  Video-Chip  des  C  64 
auf  den  Ursprungszustand  zurück. 

65493  LOAD-Routine  des  Betriebssystems.  Mit  fol¬ 
gender  kleiner  Routine  kann  man  Unterpro¬ 
gramme  nachladen,  ohne  irgendwelche 
Basic-Pointer  (wie  zum  Beispiel  die  Zeiger 
auf  die  Endadresse,  45  und  46)  zu  verän¬ 
dern: 

POKE  186,1  :  POKE  780,0  : 

POKE  781,0  :  POKE  782,96  : 

POKE  183,0  :  SYS  65493 
Erklärung:  186,1  =  Geräteadresse  für  Re¬ 
corder 

781  und  782  gibt  die  Startadresse  an,  ab 
der  das  Programm  geladen  werden  soll. 

183,0  =  kein  Programmname. 

SYS  65493  =  LOAD-Routine. 

65511  Durch  SYS  65511  lassen  sich  alle  Files 

schließen.  So  erspart  man  sich  das  lästige 
Eintippen  von  CLOSEI  :CLOSE2:CLOSE3... 
Dabei  sollte  aber  beachtet  werden,  daß  so 
nur  der  Kanal  geschlossen  wird,  aber  keine 
Dateien  auf  einer  Disk. 

Auf  PEEKs  und  POKEs  für  Grafik  und  Sprites  wurde  hier  ver¬ 
zichtet,  da  die  Grafik  und  die  Sprites  im  Grafikkurs  von  H.  Pon- 
nath  schon  sehr  ausführlich  beschrieben  sind. 

(M.  Kohlen/gk) 
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yser-Port- 

Tastatur 

Mit  Hilfe  dieses  Programmes  ist  es 
möglich,  eine  beliebige  Tastatur  mit 
bis  zu  4  x  5  Matrix  an  den  User-Port  an¬ 
zuschließen  und  die  Funktionstasten 
mit  Strings  bis  9  Byte  Länge  zu  bele¬ 
gen. 

Bei  der  Auswahl  einer  geeigneten  Tastatur  gibt  es  eigentlich 
nur  eine  Bedingung:  Sie  darf  höchstens  4x5  Anschlüsse  ha¬ 
ben  und  die  Tasten  müssen  auf  den  Kreuzungspunkten  der  4 
x  5  Anschlüsse  liegen.  Ansonsten  gibt  es  keine  Beschränkun¬ 
gen,  da  jede  Taste  frei  programmierbar  ist.  Um  die  Tastatur  zu 
programmieren,  muß  man  über  ihren  Aufbau  nichts  wissen. 
Man  schließt  sie  einfach  am  User-Port  an  den  Leitungen  PbO 
bis  Pb7  und  Pa2  an.  Die  Anschlüsse  PbO  bis  Pb3  sind  die  Zei¬ 
len  der  Tastatur.  Es  sind  am  User-Port  die  Anschlüsse  PbO=c, 
Pb1  =  d,  Pb2  =  e,  Pb3  =  f.  Für  die  Spalten  gelten  die  Anschlüs¬ 
se  Pb4=h,  Pb5=j,  Pb6  =  k,  Pb7=l,  Pa2  =  m. 
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Die  Programmierung  geschieht  mit  Hilfe  des  Basic- 
Ladeprogramms.  Man  wird  gebeten,  die  zu  programmierende 
Taste  zu  drücken.  Die  momentane  Belegung  wird  ausgege¬ 
ben,  und  man  wird  gefragt,  welchen  ASCII-Wert  man  der  Tasta¬ 
tur  zuweisen  möchte.  Danach  gibt  man  den  entsprechenden 
ASCII-Wert  ein.  Danach  wird  man  erneut  gebeten,  eine  Taste 
zu  drücken.  Es  ist  also  nicht  notwendig,  die  Matrix  zu  kennen. 
Fertig  programmierte  Tastaturen  können  dann  als  Maschinen¬ 
programm  auf  Diskette  abgespeichert  werden,  welches  nur 
zwei  Blöcke  belegt.  Es  kann  dann  von  Diskette  mit  LOAD  »na- 
me«,8,1  geladen  und  mit  SYS12*4096  gestartet  werden.  Im 
Zusammenhang  mit  der  Funktionstastenbelegung  können  auf 
die  Tastatur  auch  ganze  Strings  gelegt  werden,  indem  man  nur 
den  entsprechenden  ASCII-Code  der  Funktionstasten 
( 1 33-1 39)  auf  die  Zusatztastatur  programmiert.  Auf  diese  Wei¬ 
se  ist  es  möglich,  komplette  DATA-Listings  mit  einer  kleinen  Ta¬ 
statur  mit  Zehnerblock  bequem  und  schnell  abzutippen,  da 
man  auch  die  Returntaste  und  alle  Sonderzeichen  auf  die  Ta¬ 
statur  umlegen  kann.  Auch  eine  komplette  Hex -Tastatur  mit  den 
Zeichen  0-9  und  a-f  und  vier  Sonderzeichen,  zum  Beispiel  Re¬ 
turn,  Delete,  Komma,  Punkt  (Grundausstattung),  kann  pro¬ 
grammiert  werden.  Dadurch  wird  das  Abtippen  von  Hexdumps 
zum  Kinderspiel.  Bewährt  hat  sich  eine  alte  Rechenmaschi¬ 
nentastatur,  mit  der  ich  auch  schon  Spiele  gespielt  habe. 

Die  Belegung  der  Funktionstasten  geschieht  ebenfalls 
durch  das  Ladeprogramm.  Zunächst  wird  gezeigt,  wie  die  Ta¬ 
sten  belegt  sind  und  gefragt,  ob  man  die  Belegung  ändern  will. 
Man  gibt  dann  nur  den  entsprechenden  String  ein  und  drückt 
Return.  Zum  Schluß  wird  man  noch  gefragt,  ob  man  mit  seiner 
Wahl  zufrieden  ist. 

(Martin  Kloss/aa) 
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Jeder  Kreuzungspunkt 
stellt  eine  Taste  dar. 


100  REM"  - 

US  REM"  1  USERPORT  UND  FUNKT  IONS-TASTEN  i 
12®  REM "  BELEGUNG  EUER  DEN  C  64  VON 
130  REM“ 'MARTIN  KLOSS  DUESSELDORF 

14S  REM"  i - - - - - i 

150  REM" i NN, Mn  : LAUFVARIABLE 

160  REM" Ißl ,02  : READ , AENDERUN8S VAR . 

170  REM" .01$, Q2t- : L0E3CH , ANTWORTVAR -  ! 

ISS  REM" iQ2$(  5  : BEFEHLSFELD  ■  j 

190  REM”  ! - - - i 

2S0  REM" i ANSCHLUSS  EINER  TASTATUR  MIT  : 
210  REM" i 4*5  MATRIX  AM  USERPORT 
220  REM"  S4  ZEILEN  AUF  PB0— PB3  I 

230  REM" |5  SPALTEN  AUF  PB4-PB7  U.  FA2  | 
24S  REM"  !•  2'2  PROGRAMMIERBARE  TASTEN 

25S  REM"  i - { 

260  REM" i  BELEGUNG  DER  FUNKTIONSTASTEN  j 
270  REM"  ! MIT  STRINGS  BIS  9  BYTE  LAENSE  i 
280  REM"  FREI  PROGRAMMIERBAR  ! 

290  REM"  t - l 


30.0  pr  i  nt  “ iimmmmmm"  spc  <  1 0  > " 

310  PRINTSPC < 10) "58  USERPORTTASTATUR  " 

320  PR  I NTSFC  (10)  "  iS 

330  PRINTSPC  (10)  "iS  BY  MARTIN  KLGSS  ” 

340  PR I NTSPC  (iS)" 'S . . . . . ■  " 

35S  E=S:  F0RNN=49 1 52TÖ49527 :  READA:  B=B-s-A:  P 
□KENN . A : NE XTNN ; SYS49 152 

363  I  FB<  >43253THENPR  I  NTSPC  (13)  "  ECCPalaD A T A 
ERROR  “sSTOP 

.370  FORNN=0TO7 :  READQ2*  ( NN )  :  NE  XTNN :  PR  I  NT  " 
L,!:ß 

383  PR I NTSPC  (5)  ” - - - — ■» 

390  PRINTSPC  (5)  "iS  FUNKT I ONSTASTENBELEGUN 
G  " 

4SS  PRINTSPC  (5) 


Listing  für  die  User-Port-Tastatur 
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C64  : 

Diskette 

intern 

Der  genaue  Inhalt  einer  Diskette  ist 
den  meisten  Floppy-Besitzern  wohl 
bisher  unbekannt  geblieben.  Das  Pro¬ 
gramm  Disk-Dump  schafft  den  Ein¬ 
blick. 

Dieses  Programm  ermöglicht  den  Inhalt  einzelner  Disketten- 
Blocks  auf  dem  Bildschirm  anzusehen,  sie  auszudrucken  und 
zu  ändern! 

Nach  dem  Start  des  Programms  wird  Track  18  —  Sektor  0  in 
den  Speicher  geladen  und  —  in  zwei  Stufen  —  auf  den  Bild¬ 
schirm  ausgegeben.  Zwei  Stufen  sind  notwendig,  um  den  In¬ 
halt  gut  auf  dem  Bildschirm  darzustellen.  In  der  ersten  Stufe 
werden  die  ersten  128  Byte  angezeigt,  je  8  Byte  in  einer  Zeile. 
Am  Anfang  der  Zeile  steht  noch  die  Hexnummer  des  ersten 
Bytes  der  jeweiligen  Zeile,  hinter  dem  Inhalt  werden  die  8  Byte 
noch  als  Character-String  ausgegeben.  Hierbei  werden  Steu¬ 
erzeichen  als  Blank  ausgegeben.  Dieser  Bildschirminhalt 
bleibt  nun  bestehen,  bis  eine  Taste  gedrückt  wird  und  somit  die 
zweiten  128  Byte  in  gleicher  Weise  angezeigt  werden. 

Im  Anschluß  daran  erscheint,  zusammen  mit  den  letzten  128 
Byte,  ein  Menü,  das  sämtliche  Funktionen  umfaßt.  Hier  kann 
man  den  Drucker  ein-  und  ausschalten,  den  nächsten  oder  vo¬ 
rigen  Block  laden,  einen  beliebigen  anderen  Block  laden,  den¬ 
selben  Block  nochmal  anzeigen  und  den  Inhalt  des  Blocks  im 
Speicher  ändern. 

Zum  Ändern  muß  man  zuerst  die  Bytenummer  (in  Hex)  ein¬ 
geben  und  dann  den  neuen  Inhalt  (ebenfalls  in  Hex).  Gibt  man 
als  Adresse  »X«  ein,  so  wird  das  Ändern  abgeschlossen,  der 
geänderte  Block  wird  ausgegeben  und  man  kann  entschei¬ 
den,  ob  der  Block  nun  auf  Diskette  geschrieben  werden  soll. 

Um  einen  beliebigen  Blockzu  laden,  muß  man  die  Track-  und 
Sektornummer  (Dezimal)  eingeben. 

Der  physikalische  Aufbau  der  Blocks  ist  aus  dem  Manual  des 
Laufwerks  zu  entnehmen.  Man  muß  jedoch  beachten,  daß  der 
Inhalt  in  Hex  angezeigt  und  geändert  wird  und  die  Angabe  der 
Block-  und  Sektorennummern  dezimal  erfolgt. 

Die  Bedienung  des  Programms  erklärt  sich  durch  die  Menü- 
Steuerung  von  selbst.  (Horst  Wibbing/rg) 


100 

print  »mir 

101 

REM  COP YR:  I 

SHT  (C)  1934 

BY 

102 

REM  HORST 

WIBBING,  62  WIESBADEN 

1 10 

PRINT" 

************************** 

** 11 

120 

PRINT" 

* 

* 11 

1  T(71 

±  •-> 1  'CJ 

PRINT" 

*  DISK  - 

-  DUMP  92 

140 

PRINT" 

* 

*" 

150 

PRINT" 

************************** 

**" 

151 

PRINT"^" 

153 

PRINT" IST 

DIE  DISKETTE 

DRIN  ?  "; 

154 

GET  Y$ :  IF  ( Y$<  >"  Y  "  ANDY 4-' 

;>UJ" > THEN154 
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1  55 

PR  INT  “Li“ 

163 

REM  ***** 

IN IT  ***** 

161 

D=3:D*<0>= 

"ÜgQFFs”  :  Df-  ( 1 )  ="|30N  SS» 

162 

TR= 1 S : SE=0 

1  63 

PRINT"!" 

164 

DI MET (255) 

165 

G0TG273 

166 

REM  ***** 

TRACK/SECTOR  ***** 

173 

PRINT" 

WH ICH  TRACK  (  1  -  35  ) " ; 

180 

INPUTTR 

193 

IFTR<  10RTF- 

>35THENPRINT"lD" : GOTO 1 73 

200 

IFTRIC  18THE 

NSR=2B: GOTO240 

210  IFTR<25THENSR=1S: 6QTC240 
220  : IFTRK31 THENSR=17 : 6OTO240 
230  :SR=16 
235  REM  ***** 

240  PRINT"!  WH ICH  SECTOR  (  0  -";SR;" ) 

5 

250  INPUTSE 

260  IFSEOORSE >SRTHENPRI  NT  " CXX:'-"  :  GOTO240 
265  REM  ***** 

270  GOSUB1000: REM  LESEN 
280  GOSUB2000: REM  AUSDRUCKEN 
310  REM  ***** 

320  PRINT"  1  =>  NEXT  BLOCK  2  =>  SA 

ME  BLOCK" 

330  PRINT"  3  =>  PREV.  BLOCK  4  =>  OT 

HER  BLOCK" 

340  PRINT"  5  =>  AENDERN  6  =>  PR 

INTER  *';D$(D) 

350  PRINT”  0  =>  END" 

360  GETTS: IFT*=" "THEN360 


370 

IFT£= 

"  1" 

THENGOSUB3000: G0T02' 

380 

IFT$= 

n  r\  ii 

THENGOTO280 

•  -  5 

x~T$=‘ 

•j 

THENGOSUB3500: G0T02' 

390 

IFT  4= 

1!  f]  II 

1 THENGOT 0173 

391 

IFT  $=: 

”5" 

THENGOSUB5000 : PR I NT 

320 

392 

IFT$=' 

il  i.  II 

THENGOSUB2500: G0T04 

400 

IFT$= 

"3" 

THENG0TO9999 

413 

PRINT1 

!,DDQjl;!!  :  G0T0323 

430  REM  *****************  ENDE  ****** 
1003  REM  ******************* 

1001  REM  ****  SÜB  LESEN  **** 

1002  REM  ******************* 

ISIS  OPEN 15, 8, 15 

1020  OFENS, 8,6,"#" 

1 025  PR I NT# 1 5 , " U 1  B  0 " TR , SE 
1030  POE I=0T 0255 
1040  :GET#S,B$(I) 

1073  NEXT I 

10S0  CL0SE8: CLOSEI  5 

1090  RETURN 

1100  REM  ***********  ENDE  SUB  LESEN  **** 
* 

2000  REM  ********************** 

2001  REM  ****  SUB  AUSDRUCK  **** 

2002  REM  ********************** 

2013  I FTR< 1 8THENBL=2 1 * (TR-1 ) +SE: 0OTO205B 
2020  I FTR<25THENBL= 1 9* (TR-1 ) +SE+34: G0TQ2 
E50 

2033  I FTRC 3 1 THENBL= 1 8* ( TR- 1 >  +SE+34+24 : GO 
TO2350 

2040  BL= 17* ( TR- 1 ) +82+34+24*30 
2350  I FD= 1 TMEN0PEM4 , 4 

2051  PR INT “LUS  TRACK: " ; TR; "  SECTOR: " ; SE; 

"  BLOCK:  ";  BL  "SB" 

2055  IFB=1THENPRINT#4, "ffl  TRACK: ";TR; “  S 
ECTQR:  "  ;  SE;  "  BLOCK:  "  ;  BL 
2060  PRINT"!" 

2070  FORI=0TO15 

2071  :CT=""  Listing  »Disk-Dump« 


95 
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C  64 

“U 

2072  : X=8*I : GOSUB  6030: REM  DEC-HEX 

2075  : PRINT"  " ;  Xi;  "  :  " ; 

2076  :  IFD=1THENPRINT#4,  "  :  " ; 

2080  :FORJ=0TO7 

2038  :  X=(ASC(Bi<I*S+J)+CHRi  (3)  )  ) 

2089  : GOSUB  6000: REM  DEC-HEX 
2098  : PRINT"  "  ;Xi; 

2891  : IFD=1THENPRINT#4, "  ":Xi: 

2095  : GOSUB4003: REM  CHECK 

2180  : NEXTJ 

2118  : PRINTCi 

2111  : IFD=1THENPRINT#4,C* 

2123  NEXTI 

2125  REM  *****  2. SEITE 
2133  PRINT" [3  TASTE" 

2148  GETTi: IFT$=" "THEN2140 

2153  PR INT"  Hg  TRACK:  "  ;  TR;  "  SECTQR:  "  :SE; 

"  BLOCK:  BL" 33” 

2155  IFD=iTHENPRINT#4, TRACK TR ; " 
SECTOR:  "  ;  SE:  "  BLOCK:  "  ;  BL"^" 

2160  PR  INT  "SS" 

2173  FGRI=16T031 

2171  :  Ci=”  " 

2172  :  X=  (8*1  >:  GOSUB  600.0:  REM  DEC-HEX 

2175  : PRINT"  ";Xi;"  :  " ; 

2176  :  IFD=1THENPRINT#4,  "  ";Xi;"  :  " ; 

21S8  :F0RJ=3T07 

2 188  : X= ( ASC ( Bi < I *3+ J ) +CHR$ < 0) ) ) 

2189  : GOSUB  6303: REM  DEC-HEX 
2193  SPRINT"  "  ü  Xi-  5 

2191  : IFD=1THENPRINT#4, "  ";Xi: 

2195  : G0SUB4888: REM  CHECK 
2203  : NEXTJ 

2213  :  PRINTCi  . 

2211  :  IFD=lTHENPRINT#4,Ci  LlSting 

2223  NEXTI  »Disk-Dump« 

2225  I FD- 1 THENCL0SE4 
2230  RETURN 

2240  REM  ***-********E.NDE  SUB  AUSDRUCK*** 
** 

2500  REM  ********************* 

2510  REM  ****  SUB  PRINTER  **** 

2520  REM  ********************* 

2538  I FD=3THEND= 1 : RETURN 
2543  IFD=1THEND=0: RETURN 

2550  REM  ***********  ENDE  SUB  PRINTER  ** 
*** 

3080  REM  ************************ 

3001  REM  ****  SUB  NEXT  BLOCK  **** 

3002  REM  ************************ 

3010  SE=SE+ 1 

3020  I FTR< 1 SftNDSE  >20THENTR=TR* 1 : SE=3 : RET 
URN 

3030  IFTR<25ANDSE> 18THENTR=TR+ 1 : SE=0: RET 
URN 

3040  I FTR< 3 1 ANDSE  > 1 7THENTR=TR* 1 : SE=3 : RET 
URN 

3050  I FTR< 36 ANDSE > 1 6TH£NTR=TR+ 1 : SE=0 
3063  I FTR=36THENTR=0 
3073  RETURN 

30B8  REM  ***********  ENDE  SUB  NEXT  BLOCK 
***** 

3580  REM  ************************* 

3513  REM  ****  SUB  F'REV.  BLOCK  **** 

3520  REM  ************************* 

3533  SE=SE-1 

3548  I F SEC 0THENSOTO3600 

3550  RETURN 

3600  TR=TR- 1 

3613  SE= 1 6 

3620  IFTR=0THENTR=35: RETURN 
3630  I FTR< 1 BTHENSE=20 : RETURN 


3643  IFTR<25THENSE=1S: RETURN 
3650  I FTR< 3 1 THENSE= 1 7 
3660  RETURN 

3670  REM  ***********  ENDE  SUB  PRE‘7.  BLOC 
K  ***** 

4000  REM  ******************* 

4001  REM  ****  SUB  CHECK  **** 

4302  REM  ******************* 

4810  B=ASC(Bi<I*8+J)+CHRi (0; ) 

4020  I F (  ( S< 32 ) OR (  ( B  >127) AND ( B< 1 63 )  ) > THEN 
Ci=Ci+ "  " : GOTO4030 
4025  Ci=C4-+Bi  <  I*S+J> 

4330  RETURN 

4343  REM  ***********  ENDE  SUB  CHECK  **** 
* 

5333  REM  ********************* 

5831  REM  ****  SUB  AENDERN  **** 

5332  REM  ********************* 

5G1S  PRINT  ADDR  (00— FF/X=EXIT)  "  :  :  INPUT  AD 
Ri- 

58 15  IFADRi=" "THENG0T05313 
5020  I FADRi= " X "THENG0T05 1 50 
5030  IFLEN (ADRi) <2THENADRi=" 0 " +ADRi 
5340  IFLEN (ADRi)  >2THENADRi=R I GHT i <  ADRi , 2 
> 

5245  Xi=ADRi 

5846  GÜSUB  6508: REM  HEX-DEC 
5350  I=X 

5363  PR I NT " WERT  ( 30-FF ) " : : I NPUTWi 
5065  I FWi= ” " THENG0T05863 
5070  IFLEN (Wi)<2THENWi="0"+Wi 
5080  IFLEN (Wi) >2THENW£=RIGHT$ (Wi,2) 

5385  Xi=Wi 

5086  GOSUB  6500: REM  HEX-DEC 
50  73  Bi  ( I )  =CHRi  (  X  ) 

5133  GOTO5303 
5110  REM  ***** 

5150  GOSUB 2000 : REM  AUSDRUCKEN 
5160  PRINT "AUF  DISK  SCHREIBEN" INPUT Yi 
5170  I F ( ( Yi<  > " J " ) AND ( Yi<  > " Y" ) ) THENG0TC53 
0© 

5175  B 1 = ASC ( Bi ( 3 ) +CHRi (0 ) ) + 1 
5180  OPEN 15, 8, 15 
5193  OFENS ,8, 8,"#" 

5230  F0RI=1T0255 

5235  :  I  FBi  (!)=""  THENPR I  NT #8  ,  CHRi  ( 3 )  :  :  GOT 
05220 

5213  :  F'RINTSS,  Bi  (I )  : 

5220  NEXTI 

5225  PRINT #15, "B-P: 3" ,B1 
5233  PRINT#! 5, "B-W: 8,0"TR, SE 
5240  CLOSEB: CLOSEI 5 

5300  PR INT "WEITER  AENDERN" ;: INPUTYi 
5313  IF ( ( Yi=" J " ) OR ( Yi=” Y" ) ) THENGOTO5000 
5320  RETURN 

5330  REM  ***********  ENDE  SUB  AENDERN  ** 
*** 

6303  REM  ********************* 

6313  REM  ****  SUB  DEC-HEX  **** 

6023  REM  ********************* 

6333  X 1=3: X2=0 
6043  X 1 = I NT ( X / 1 6 ) 

6353  X2= ( ( X / 1 6 ) —  I NT ( X / 1 6 ) ) *16 

6100  IFX 1< 13THENXi=CHRi ( X 1+48) :GOTO6120 

6110  Xi=CHRi ( X 1+55) 

6120  IFX2< 10THENXi=Xi+CHRi ( X2+4S) : RETURN 
6133  Xi=Xi+CHRi ( X2+55 ) 

6140  RETURN 

6150  REM  ***********  END  SUB  DEC-HEX  *** 
** 

6500  REM  ********************* 

6510  REM  ****  SUB  HEX-DEC  **** 
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6523  REM  ********************* 

6530  X 1 *=LEFT$ C  X* , 1 5 
6540  X2$=R I GHT'-f  ( X$ , 1 ) 

6553  IF  ASC  (X  i£)  >64  THEN  X=  (  ( ASC  ( Xlf-5  -55 

) * 1 6 ) : GOTO  6570 

6560  X= ( ( ASC ( X 1 * ) -48 >  *16) 

6570  IF  ASC (X2$) >64  THEN  X=X+ (ASC ( X2$> -5 
5) : RETURN 

6583  X=X+(ASC<X2$)-4S) 

6590  RETURN 

6600  REM  ***********  END  SUB  HEX— DEC  *** 
** 

9999  END 

READY.  Llsting  »Disk-Dump««  (Schluß) 


1540TEST/DEMO  Z2 

£A 

4 

DIR 

PRG 

S 

VIEW  BAM 

PRG 

14 

DISPLAY  T&S 

PRG 

4 

CHECK  DISK 

PRG 

3 

PERFORMANCE  TEST 

PRG 

5 

SEQUENTIAL  FILE 

PRG 

13 

RANDOM  FILE 

PRG 

FREIE  BLOECKE:  609 

Disketten- 

Organisation 

Dieses  Programm  ermöglicht  es,  alle 
wichtigen  Diskettenoperationen  kom¬ 
fortabel  und  schnell  durchzuführen. 

Das  Programm  (Listing  1)  ist  für  den  VC  20  geschrieben,  mit 
kleinen  Änderungen  jedoch  auch  auf  dem  C  64  lauffähig.  Die 
für  den  C  64  notwendigen  Änderungen  beschränken  sich  im 
Wesentlichen  auf  die  Anpassung  des  Bildschirmlayouts.  Die  im 
Listing  vorkommenden  Adressen  828  und  36879  sind  für  den 
C  64  durch  49152  und  53280/81  zu  ersetzen. 

Nach  dem  Starten  erscheint  sofort  das  Menü  (Bild  1)  auf  dem 
Bildschirm.  Durch  Drücken  der  Tasten  »+«  oder » — « kann  nun 
die  Gerätenummer,  unter  der  das  Floppy- Laufwerk  angespro¬ 
chen  wird,  geändert  werden.  Diese  Funktion  ist  sinnvoll,  wenn 
mit  zwei  oder  mehr  Disketten-Stationen  gearbeitet  wird. 

Über  das  Menü  sind  unter  anderem  alle  Diskettenbefehle 
ausführbar,  die  sonst  umständlich  über  den  Kommandokanal 
gesendet  werden  müssen.  Diese  Befehle  sind  im  Handbuch 
zur  1541-Floppy  ausführlich  erklärt,  so  daß  an  dieser  Stelle 
nicht  näher  darauf  eingegangen  werden  muß.  Einige  der 
Floppy-Kommandos  stehen  in  erweiterter  Form  zur  Verfügung. 
So  kann  zum  Beispiel  die  Directory-Ausgabe  wahlweise  auf 
den  Bildschirm  oder  über  den  Drucker  erfolgen.  Im  letzteren 
Fall  wird  das  Directory  alphabetisch  sortiert  (Bild  2).  Wird  dies 
nicht  gewünscht,  dann  muß  in  Zeile  1370  das  »GOTO  1490« 
durch  »RETURN«  ersetzt  werden. 

Zusätzlich  zu  den  über  OPEN  1,8,15,...  ansprechbaren 
Disketten-Befehlen  können  über  das  Menü  noch  einige  weite¬ 
re  nützliche  Funktionen  aufgerufen  werden.  Unter  anderem  ist 
es  möglich,  Namen  und  ID  einer  Diskette  oder  die  Gerätenum¬ 
mer  der  Floppy-Station  zu  ändern. 

Außerdem  sind  Routinen  zum  Regenerieren  und  Überprüfen 
einer  Diskette  vorhanden.  Weiterhin  gibt  es  die  Möglichkeit, 
die  BAM  einer  Diskette  alphabetisch  zu  sortieren.  Diese  Funk¬ 
tion  erzeugt  zwar  ein  übersichtliches,  sortiertes  Directory,  soll¬ 
te  aber  nur  mit  Vorsicht  verwendet  werden.  Falls  die  BAM  noch 
Einträge  gelöschter  Files  enthält,  kann  es  nach  Abschluß  des 
Sortiervorganges  zu  »Disk-Salat«  kommen,  da  die  Sortierrouti¬ 
ne  gelöschte  Files  nicht  erkennt.  Vor  dem  Einsatz  dieser  Funk¬ 
tion  sollte  die  Diskette  daher  unbedingt  mit  dem  Menüpunkt 
»Regenerieren«  auf  gelöschte  Files  überprüft  werden. 

Das  Programm  erklärt  sich  im  übrigen  weitgehend  von  selbst 
und  stellt  infolge  der  leichten  und  übersichtlichen  Bedienbar¬ 
keit  eine  wirkliche  Hilfe  für  den  geplagten  Disketten-Benutzer 
dar.  (Wilhelm  Boosz/ev) 


Bild  2. 

Sortiertes 
Directory  bei 
Druckerausgabe 


Bild  1. 

Hardcopy  des 
Bildschirm-Menüs 
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D ISKETTEN-ORGANISATION 
<c >  by  Wilhelm  boosz 

El  nitial  isieren 
Ü  ORMATI EREN 
fl  AL  ID  I EREN 
aj  IRECTORY 
3  OPI EREN 
3  AM  ALPHABETISCH 
S  ERAETENR . AENDERN 
!J  MB E NENNEN 
11  OESCHEN 
3  EGENERI EREN 
£1  AME  DISK  AENDERN 
U  ENDERN  DISK- ID 
M  HECK  DISK 
3  NDE  PROGRAMM 
bitte  waehlen  ! 


1  REM  ********************************** 

2  REM  *DISKETTEN-0RGANI SAT IONS-PROGRAMM* 

3  REM  *  FUER  DEN  VC  -  20  * 

4  REM  *  COPYRIGHT  BY  * 

5  REM  -»WILHELM  BOOSZ  -  HEINRICHSTR.  21  * 

6  REM  *8602  STRULLENDGRF  -  T . 09543/7606* 

7  REM  ********************************** 
S  REM 

9  P0KES2S , S: PQKE36S79 , 25 
1 E  GN7.=PEEK  ( 828 )  :  UR7.=0 

1 1  PR I NT " LüD  I SKETTEN-ORGAN I SAT  I ON " 

12  PR  INT  "(Sk.  (C)  BY  WILHELM  BOOSZ" 

13  PR I NT " SüjFLOPFY  =  I*8*i"GN7.  "£!(+/-)  " 

14  PRINT,,BHail  N I T I  AL I S I EREN "  :  PR I NT " iÖF* 
ORMAT I EREN " 

15  PR  INT  "IM  AL  ID  I  EREN":  PR  INT  "ISD«  IRECTO 
RY" 

16  PR  INT  "-SKI  OP  I  EREN"  :  PR  INT  "USB*  AM  ALPHA 
BETISCH" 

17  PR  INT"  uSGü  ERAETENR.  AENDERN"  :  PRINT  "ISÜH 
MBENENNEN" 

18  PRINT"fflLi  OESCHEN":  PR  I  NT  "ISR*  EGENERIE 
REN" 

19  PR  INT  "SN*  AME  DISK  AENDERN"  :  PRINT  "ISA* 
ENDERN  DI SK- ID" 

20  PRINT"iÖC®  HECK  DISK” :  PRINT"SES  NDE  PR 
□GRAMM " 

21  PRINT"®§BITTE  WAEHLEN  ! 3" 

22  GET Y-T :  I  FY$=  "  "  THEN22 

23  I  FY4=  ”  +  "  THEN6N7.=GN7.+ 1 :  I FGN7.  >255THENGN 
71=255 

24  I  FY4=  "  -  "  THENGN7.=6N7.- 1 :  IFGN7.<0THENGN7.= 
0 

25  I F Y  f-=  "  +  "  O RY$=  "  -  "  THENP OKE328  ,  GN7. :  P  R I  NT 
"B"; : GOTO 1 1 

Listing  1.  »Disketten-Organisation« 
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26  IFY«="E,,THENP0KE36e79,27:  PRINT"L2*" : CL 
R :  END 

27  I F  Y$= " I " THENGOSUB44 : CLR : GOTO 1 0 
2B  IFY«="F"THENGOSUB50: CLR: GGTO10 

29  IFY«=,,D"THENGQSUB64:  CLR:  GOTG10 

30  I F  Y«= " B " THENGDSUB84 : CLR: GOTO 10 

31  I F  Y«= " K “ THENSOSUB 121 : CLR: GOTO 10 

32  I FY «=  "  U 11 THENGOSUB 1 30 :  CLR :  GOTO  1 0 

33  IFY«="L" THENGOSUB 148: CLR: GOTO 10 

34  I  FY«=  "  R  ”  THENGOSUB  1 59 :  CLR :  GOTD 1 0 

35  I F Y «=  " N ,! THENG03UB2 1 2 :  CLR:  GOTO  10 

36  IF  Y«= " ft " THENGDSUB22 1 : CLR: GOTO 10 

37  IFY$="G"THENG0SUB231 :  CLR:  GOTO  10 

38  I FY«= " C " THENG0SUB263 : CLR : GOTO 1 0 

39  IFY«="  V‘‘THENGDSUB5B:  CLR:  GOTO  10 

40  G0TG22 

41  REM  ****************************** 

42  REM  »INITIALISIEREN* 

43  REM  ****************************** 

44  PRINT"tfiagaaBBH  INITIALISIEREN" 

45  CLOSEI :  OPEN1  ,GN7. ,  15,  "  10"  :  G0SÜB298:  CLO 
SEI : I FEN=0THENRETURN 

46  PR TNT "«a«fl"EN: EN«; NE; EE: GOSÜB305: RE TUR 
N 

47  REM  ****************************** 

48  REM  *  FORMATIEREN  * 

49  REM  ****************************** 

50  FRINT"LiSgäSää  FORMATIEREN" 

51  NA«= "TEST" : I NPUT »BHBBD  I SKETTENNAME " i N 
A# : NA«=LEFT« ( NA« ,16) 

52  ID«=”": INPUT  "GSSD  ISKETTEN- ID" ; ID« 

53  CLQSE 1 :  OPEN  1 , GN7. ,  15,  "N:  "  +N  A«+  "  ,  "+ID«: 
CLOSEI : G0SUB298: IFENTHEN46 

54  RETURN 

55  REM  ****************************** 

56  REM  *  VALIDIEREN  * 

57  REM  ****************************** 

58  FRINT"LfflfflSBfflgH  VALIDIEREN" 

59  CLOSEI:  OPEN  1  ,GN7. ,  15,  "  V"  :  60SUB29B:  CLOS 
El:  IFEN=0THENRETURN 

60  GQT046 

61  REM  ****************************** 

62  REM  *DIRECTORY  DRUCKER /BILDSCHIRM* 

63  REM  ****************************** 

64  PRINT"  L  IgtfKID  I  R  E  C  T  0  R  Y"  :  PR  INT  "Hä 
DB  RÜCKER" 

65  F'RINT-ftiqaBB  ILDSCHIRM" 

66  GETY«:  IFY«<  >"D"  ANDY«<  >,,B"THEN66 

67  IFY«= " D" THENF'R I NT 11 LfflslHDRUCKER  BEREIT 
? " : G0T069 

68  GOSUB309:  G0T077 

69  GETY«: IFY«< >" J " ANDY«< >"N"THEN69 

70  IFY«="N"THENRETURN 

71  FR I NT " «BKGERAETENUMMER  DRUCKER" : PRINT 
"  4BHI"  ;  :  INPUTGD7.:  STOP:  0PEN4,GD7.:  GOSU 
B309 

72  PRINT#4,"  ”F« (0) "  " ID«: PRINT#4 

73  FORY=1TOZE— 1 

74  IFLEN (F« ( Y ) ) < 16THENF« (  Y) =F« (Y) +"  " : GO 
TQ74 

75  F'R  I  NT  #4 ,  L«  ( Y )  "  "F«  (Y)  "  "K«(Y) 

76  NEXT :  PRINT#4:  PRINT#4  ,  "  FREIE  BLO 

ECKE:  "L«(ZE> :PRINT#4: RETURN 

77  PR I NT " LJSNAME  i]3"F«  (0)  :  PRINT"  ID  |£"ID« 

"mu 

78  YY=3: FORY=lTOZE— 1 : YY=YY+1 

79  PRINT"i;I"L«  ( Y)  "H"F«(Y)  ";i"TAB  (19)  LEFT«  ( 
K«(Y) ,2) : I FYY / 1 8= I NT ( Y Y / 1 8 ) THENGQSUB305 : 
PR  INT  "Li" 

80  NEXT: PR INT "BEFREIE  BLOECKE  1Ö"L«(ZE):G 
OSUB305: RETURN 

81  REM  ****************************** 

82  REM  *  BAM  ALPHABETISCH  * 


83  REM  ****************************** 

84  D I MF'N«  ( 224 >  ,SP  (29)  ,SE  (29 )  :  OPEN  15  ,  GN7. , 
15, "I" 

85  NN=0 :  SN=0 :  SO=  1 :  SP7.=  1 8 :  SE7.=  1 

86  UR7.=  1 :  G0SUB299 :  I FENTHENCLOSE 1 5 :  RETURN 

87  0PEN2 ,  GN7. ,  2  ,  "  #  "  :  G0SUB299 :  I FENTHENCLOS 
E15: GGT046 

38  PRINT "L" 

89  PR  I  NT#  1 5  ,  "  U 1 "  ;  2 ;  0 ;  SP7. ;  SE7. :  SP  ( SN )  =SP7. : 
SE(SN)=SE7. 

90  GET#2,EG«: IFEG«=" "THENEG«=CHR« (0) 

91  5P7.=A5C  (EG«) 

92  GET#2,EG«: IFEG«=" "THENEG«=CHR« (0) 

93  BE7.=ASC  (EG«)  :  PZ=2 

94  PR INT# 15, "B-P" ; 2; PZ: NN=NN+1 

95  FOR I = 1 TO30 : GET#2 , EG« : I FEG«= " " THENEG«= 
CHR« ( 0 ) 

96  PN« (NN) =FN« (NN) +EG«: NEXTI 

97  I FASC ( LEFT« ( PN« ( NN ) , 1 ) ) =0THENPN«= " " : L 
0=L0+ 1 : GOTO 1 0 1 

98  F0RI  =  19T05STEP-1 : IFMID« (PN« (NN)  ,  I,l)< 
>CHR« (160) THEN I =5 : GOTO 1 00 

99  PN« (NN) =LEFT«  CRN« (NN)  , 1-1 ) +CHR« (32) +R 
I GHT «•  ( PN«  ( NN )  ,  30- 1 ) 

100  NEXTI :PRINTMID«(PN« (NN) ,4,16) 

101  IFPZ— 226THENPZ=PZ+32: 60T094 

102  IFSP7.THENPZ=2:  SN=BN+ 1 :  G0T089 

103  I FLD-0THEN 1 08 

104  N«=" " : FORJ  =  1TO30: N«=N«+CHR« (0)  :  NEXTJ 

105  FORJ=l TOLO 

106  PN« (NN+ J ) =N« 

107  NEXTJ 

108  F'R I NT " I LES  WERDEN  SORTIERT  !  B3" 

109  F0RJ=1TQNN-1 : FORI=J+ 1TONN: IFMID« <PN« 
(.1)  4,16)  >M  I D«  ( PN«  ( J  )  ,4, 16)  THEN1 1 1 

110  N«=PN«  ( I )  :  PN«  ( I )  =F'N«  ( J  )  :  F'N«  ( J  )  =N« :  SO 
=0 

111  NEXTI  ,  J:  FORJ=lTONN:  F'RINTMID«  (PN«  (J)  , 
4,16): FOR I = 1 9T05STEP- 1 

112  IFMID« <PN« (J)  , I , 1 ) <  >CHR« ( 32 ) THEN I =5 : 
60T01 14 

113  PN« ( J ) =LEFT« ( PN« ( J ) , 1-1 ) +CHR« ( 160) +R 
I GHT« CRN« (J) ,30-1) 

1 14  NEXTI , J: IFSOTHENCLOSE2: CL0SE15: RETUR 
N 

115  PN7.=  1:FORJ=0TOSN:PRINT#15,  "B-P";2;0: 
PRINT#2,CHR« (SP ( J+l ) ) ; CHR« (SE ( J+l ) ) 

1  16  F'Z=2:  FOR  1  =  1  TOS:  PR  INT#  15  ,  "  B-P  "  ;  2;  PZ:  P 
RINT#2 ,  PN«  <F'N7.)  ;  :  PN7.=PN7.+ 1 :  FZ=PZ+32 

117  NEXTI :  PRINT#  15  ,  " U2*' ;  2;  0;  SP  ( J)  ;SE(J)  : 
NEXTJ: CL0SE2: CLOSEI 5: RETURN 

118  REM  ****************************** 

119  REM  *  KOPIEREN  * 

120  REM  ****************************** 

121  F'R I NT " LflgjBKKK  □  P  I  E  R  E  N" 

122  F'RINT"SES3WELCHES  FILE  SOLL"  :  PR  INT"HK 
OF’IERT  WERDEN?" 

123  INPUT" KALTER  NAME"; AN« 

124  I NPUT " EMEUER  NAME"; NN« 

1 25  CLOSE 1 :  OPEN  1  ,  GN7. ,  1 5 ,  "  C :  "  +NN«+  "  =  "  +  AN« 

: G0SUB298: IFENTHEN46 

126  RETURN 

127  REM  ****************************** 

128  REM  *  UMBENENNEN  * 

129  REM  ****************************** 

130  PR INT "LiSH  UMBENENNEN" 

131  PRINT “0fflSl  =  EIN  FILE":PRINT"K2  = 
ALLE  FILES" 

132  PRINT"  K5§B ITT E  WAEHLEN  !  " 

133  GETY«: IFY«< " 1 "0RY$>"2"THEN133 

134  IFY«=" 2" THEN 139 

135  I NPUT " K23ALTER  NAME";  AN« 

136  INPUT "BLEUER  NAME"; NN« 
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1 37  CLOSE 1 :  OPEN  1  ,  GN/1 ,  1 5 ,  "  R :  "  +NN$+  "  =  "  +  AN$ 
: GQSUB298: IFENTHEN46 

138  RETURN 

139  GOSUB309 

140  PRINT"L":FORY=lTOZE-l:PRINT"NEUER  NA 
ME  nF*(Y)  iPRINT,,r>MiMMi»Mil,li  a  INPUTNN 
$ 

141  IFNN$=F$(Y) THEN144 

1 42  CLDSE  1 :  OPEN  1  7  GN7. ,  1 5  ,  "  R :  "  +NN*+  "  =  "  +F*  ( 
Y) : G0SUB298 

143  I FENT HENPR I NT " CS  "EN;  ENT-;  NE;  EE:  GOS 

UB305 

144  NEXT: RETURN 

145  REM  ****************************** 

146  REM  *  LOESCHEN  * 

147  REM  ****************************** 

148  PRINT  "LJSMM  LOESCHEN" 

149  INPUT"EE3FILENAME"  ;  NAT- 

150  PRINT  "KßBDLL  TWAt:  PR  INT  "WIRKLICH  WE 

0  ?  97 11 

151  GETY$: IFY*= " "THEN 151 

152  IFY$< >" J "THENCLR: GOTO 10 

153  CLOSE  1:  OFEN  1  ,GN7.,  15,"S0:  " +NAT  :  G0SUB2 
90: IFEN$< > "FILES  SCRATCHED" THEN46 

154  IFNE=0THENPRINTM^;.EIN  FILE  13MNA*:PR 
I NT " GEFUNDEN  ! " : GOSUB305 : RETURN 

155  PR  INT"  fiüJä"  NE  "FI  LE  ( S )  GELOESCHT  "  :  GOSUB 
305: RETURN 

156  REM  ****************************** 

157  REM  *  REGENERIEREN  * 

158  REM  ****************************** 

159  GOSUB206:  RE7.=0:  PRINT"Li  REGENERIERE 
N" 

160  SP7.=  1  :TR7.=DI7.:0PEN15,8,  15,  "10 

161  0PEN8 ,8,2, " #2 " : F I 7=0 

162  PR  INT  #15,  "Ul:  "2;  0  ;  TR7; SP7:  GOSUB204 

1 63  FÜR  I  =0TO  1  :  GET #8  ,  :  GOSUB20 1 :  P7.  (  I  )  =AS 

C(A$) : NEXT : A=2: GOSUB203 

164  GET#e  ,  AT-:  GOSUB201  :  A=ASC  ( AT  )  AND7 

165  H$=" " : FQR I — 0TO 1 : GET #8 , A$ : GOSUB20 1 :  L7 
(I) =ASC(A$) : NEXT 

166  F0RI=3T018:  GET #8  ,  A$ :  H*=H$+A$:  NEXT: 

167  I FH$= " " THEN 1 69 

168  PRINT  K I $  ( A )  ;  "  "  ;  CO* ;  H* ;  TAB  ( 1  1 )  CO*;  ; 
L7.<0)  ;  L7.il)  :  IFA=0THENGOTO185 

169  FI7.=FI7.+  1:  I  FF  I7.<8THENA=F  17*32+2:  GOSU 
B203: GOTO  1 64 

170  IFP7.  (0)=0THEN172 

1 7 1  TR7.=P7.  ( 0 )  :  SP7=P7  (  1 )  :  F 1 7.=0 :  GOTO  1 62 

172  CL0SE8:  IFRE7.THEN53 

173  GOSUB204: CLOSEI 5: RETURN 

174  PRINT#15,  "Ul:  "2;0;L7.  (0)  ;  L7.  <  1 )  :  RETURN 

175  D7.=2:  PRINT "SSSPUR,  SEKTOR"; 

1 76  GOSUB 1 74 : FOR I =0TO 1 : GET#8 , A*:  GOSUB20 1 
:Z7.  (I)=ASC(A*) 

177  PRINTZ7  ( I )  "|S  :  NEXT:  PRINT:  PR  INT"  C3BP 

UR,  SEKTOR"; 

178  IFZ7.(0)=0THENPR INT: RETURN 

179  PR I NT #15,  " B— F " 0 ;  ZV.  (0)  ;  ZV.  (  1  )  :  L7.  (0 )  =Z7. 
(0 )  :  L71  ( 1 )  =Z7.  ( 1 )  :  Z7.  ( D7. )  =Z7.  <0 ) 

1 80  ZV.  ( D7.+ 1 )  =Z7.  <  1 )  :  D7.=D7.+2 

181  IFDS=0THEN1 76 

182  PRINT:  PRINT "13DAS  FILE  WURDE  BEREITS 
UEBERSCHR  I EBEN*  !  "  :  X7.=N0T  (X7. )  :A=F 17*32+2 

183  FÜR I=2TQD7— 4STEP2 : PRINT # 15 , " B-F :  "0;  Z 
7.(1)  ;Z7.(I  +  1)  :  NEXT 

184  L7 (0) =TR7:  L7.  ( 1 )  =5F'7.:  GOSUB  174:  GOTO203 

185  PRINT "ZURUECKHOLEN?  (J/N) 

186  GET  A*:IF  A*=" "  THEN  186 

187  IF  A$<>"J" THEN 169 

138  X7.=0 :  PR  I  NT  "  GSBLGECKE  WIEDERBELEGEN... 

"  :Z7.(0)=L7.(0)  :  G0SUB175:  IFX7.THEN169 

189  PRINT"^3F'aR0GRAMM,  ISSBEQUENI ELLES,  13 
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U1SER , " 

190  PR  INT  "ODER  ISRBELATIVES  FILE  ?" 

191  GET  JA*:  IFJA*0"P" ANDJ A$<>"S" ANDJ A*< 

> " U " AND J A*< >  M  R " THEN 191 

192  PRINT:  IFJA*="P,!THENKI7.=  130:  G0T0196 

1 93  I F  J  A*  =  " U  "  THENK 1 7.=  1 3 1 :  GOTO  1 96 

194  IFJA*="R"THENKI7.=  132:  GOTO  196 

195  KI 71=  129 

196  PR INT" FI LE  ZURUECKHOLEN..." 

1 97  LV.  ( 0 )  =TR7. :  L7.  ( 1 )  =SP7. :  GOSUB  174 
1 9S  A=F I 7*32+2 : GOSUB203 : PR I NT#8 , CHR* ( K I V 
5  ; 

199  BL7.=  (  (D7.-2)  /2)  +  1 :  F'R I NT "0" BL7. " BLOECKE 
5 

200  PR  I  NT#  15  ,  "  U2 :  "  2 ;  0 ;  TR7. ;  SP7. :  PR  I  NT  "WIED 

ERHERGE5TELLT  !  :  RE7.=  1 :  GOTO  1 69 

201  IFA*=""THENA*=CHR*(0) 

202  RETURN 

203  PRINT# 15, "B-P:  "2;  A 

204  INPUT#  15, EN7.,EM$,ET7.,ES7.:  I FEN7.=0THEN 
RETURN 

205  G0T046 

206  DIMP7.  (1)  ,L7.  (1)  ,Z7.  (300)  ,KI*  (4)  :  C0*= CH 
R*  (34) 

207  FORI=0TO4:READKI*(I)  :  NEXT:  DI 7=1 8:  RET 
URN 

208  DATA " ISDEL»"  ,  " SEQ "  ,  " PRG "  ,  "  USR "  ,  " RbL " 

209  REM  ****************************** 

210  REM  *  DISKNAME  AENDERN  * 

211  REM  ****************************** 

2 1 2  OPEN  1 5  ,  SN 7.  ,15:  NR=0 :  OPEN  1  ,  GN7. ,  3 ,  "  #  "  :  P 
R I NT #15, ” U 1 : 3 " NR " , 18,0" 

213  PR INT# 15 , "B-P: 3 , 144" : D*=" " : F0RL=1T01 
6:  GET#1  , A*:D*=D*+A*:NEXT 

214  PRINT"L£SSS3äALTER  DISK-NAME:  13"  D* 

215  ” DISK-NAME": PR I NT "BKJEUER  DISK-N 
AME"; : I NPUTNA* 

216  NA*=LEFT * ( NA*+ "  ",16 

) 

217  PR INT# 15 , "B— P: 3, 1 44 " s  PRINTttl ,NA*; : PR 
I NT  # 15 , " U2: 3" NR" , 18 , 0" : CLOSEI : CLOSE 15: RE 
TURN 

218  REM  ****************************** 

219  REM  *  DISK  -  ID  AENDERN  * 

220  REM  ****************************** 

22 1  DV=0 :  OPEN  1 5  ,  GN7.  ,  1 5 :  OPEN  1  ,  GN7. ,  3  ,  "  #  "  :  P 
RI NT# 15 , "Ul : 3"DV" , 18,0" 

222  PR I NT# 15," B-P : 3, 162": GET# 1 ,A*,B*,C*, 
D$,E$:PRINT"UHALTER  DISK- ID:  13"  A*;  B* ;  C* ; 

223  PRINTD*;  ET- :  INPUT "[gJMEUER  DISK-ID";  I* 

224  IFLEN(I*X3THENI*=I*+"  " :  G0T0224 

225  I*=LEFT* ( I*+"2A" ,5) 

226  PR I NT#  15  ,  " B-P :  3 , 1 62 "  :  F'R I NT#  1  ,  I * ;  :  PR I 
NT#  15,  '^^"DV"  ,  18,0 

227  G0SUB45: RETURN 

228  REM  ***************************** 

229  REM  *GERAETENUMMER  DISK  AENDERN  * 

230  REM  ***************************** 

231  PR I NT " LBSBBGER AETENUMMER  AENDERN" 

232  PRINT"äge3BITTE  ALLE  FLOPP YS" : PRINT" A 
USSCHALTEN  AUSSER" 

233  PRINT "DER ,  DEREN  NUMMER  GE-" : PRINT" A 
ENDERT  WERDEN  SOLL ! " 

234  PRINT”[gfiLTE  NUMMER  81BSBB" ; 

235  INPUTOD: IF0D<80R0D>15THEN234 

236  PR I NT “ ESMEUE  NUMMER  9|SU"  ; 

237  INPUTND: IFND<80RND>15THEN236 

238  G0SUB239: G0SUB256 : RETURN 

239  CLOSE 15: OPEN 1 5, OD , 15 

240  FR:  I  NT#  15,”  M-R  “  CHR*  ( 255 )  CHR*  ( 255 )  :  GET 
#15,  CT- :  C= ASC  (  C*+CHR*  ( 0 )  ) 

Listing  1.  »Disketten-Organisation«  (Fortsetzung) 
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241  IFSTTHEN259 

242  IFC=254THENMT=1 19 

243  IFC=226THENMT=50 

244  I FC=2 1 3THENMT =12 

245  IFC=242THENMT=12 

246  I F G= 1 98THEN24Q 

247  RETURN 

243  PRINT# 15, " M-R " CHRf ( 234 ) CHRf (16) : GET # 
15,ZBf: ZB=ASC (ZBf+CHRf (0) ) 

249  IFZB=0THENMT=12 

250  I FZ B= 1 THEN252 

251  IFSTTHEN259 

252  PR INT# 15, "M-R" CHRf (172) CHRf (16)  :  GET# 
1 5 , ZCf : ZC=A3C ( ZCf +CHRf ( 0 ) ) 

253  IFZC-iTHENMT=12 

254  I F Z C=2THENMT =12 

255  RETURN 

256  CLOSEI 5: OPEN 15 , GD ,15 

257  PR I NT# 15," M-W " CHRf ( MT ) CHRf ( 0  > CHRf  C  2 ) 
CHRf (ND+32) CHRf (ND+64) 

258  RETURN 

259  PR INT "BBS  FEHLER  AM  GERAET  ! " : GOSUB30 
2: RETURN 

260  REM  ***************************** 

261  REM  *  CHECK  DISK  * 

262  REM  ***************************** 


301  RETURN 

302  REM  ***************************** 

303  REM  *  TASTENDRUCK  ABWARTEN  * 

304  REM  ***************************** 

305  PR INT "ZWEITER — > TASTE  ! " : POKE198,0: W 
A I T 1 98 , 1 : POKE 198,0: RETURN 

306  REM  ***************************** 

307  REM  *  DIRECTORY  LESEN  * 

303  REM  ***************************** 

309  FRINT"LB8BKBBB  DIRECTORY  LESEN":  PR  IN 
T"amaBflMOMENT  BITTE  !  " 

310  DI  ML  4  (140)  ,  Kf  (14S)  ,  FT-  (  1 40 ) 

3 1 1  OPEN  1 ,  GN7. ,  0 ,  "  f  0  "  :  OPEN  1 5 ,  BN7.  ,15:  UR7.=  1 
: GQSUB299 : IFENTHEN46 

312  GET#1 ,Af ,Bf: ZE=-1 

313  ZE=ZE*i : GET#i , Af , Bf 

314  GET#l,Af ,Bf:C=0 

315  IFAf  < > " " THENC=ASC ( Af ) 

316  IFBfO"  "THENC=C+A3C  (Bf)  *256 

317  Lf  (  ZE ) =RI GHT f ( "  "+MIDf (STRf (C)  ,2) , 
3) 

313  GET# 1 , Bf : I FST< >0THENFBf=R I GHTf ( " 

+Lf ,3) : G0TO327 

319  IFBfOCHRf  (34)THEN  318 

323  Ff(ZE)=" " 

32 1  GET#  1 , Bf- :  IFBf  <  >CHRf  ( 34 )  THENFf  < ZE)  =Ff 


263 

264 

265 

266 
i+n: 

267 
6 

268 

269 

270 

271 

272 

274 

275 

276 

277 

278 


DI MT ( 100) : D I MS ( 1 00 ) 

PRINT"U8E  CHECK  DISK" 

G0SUB59 :  OPEN  1 5  ,  GN7.  ,15:  N7.=RND  (TI)  *255 
Af = " " : F0RI=1T0255: Af=Af+CHRf (255AND ( 
O ) : NEXT 

URX=1 : G0SUB299 : I FENTHENCLOSE 15: G0T04 


S#6R  or 


279 

280 
281 
282 


0PEN2 , GN7. , 2 , "# " 

PR I NT : PR I NT #2 , Af ; 

T= 1 : S=0 
PR  INT# 15, "B-A: 0"T;S 
I NPUT# 1 5 , EN , EMf , ET , ES 
IFEN=0THEN276 
IFET=0THEN284 

PRINT#15, "B-A: 0"ET; ES: T=ET :  S=ES 

PR INT# 15 , "U2:  2 , 0"T;  S 

NB=NB+ 1 :  PR  I  NT  "  GETESTETE  BLOECKE "  NB 

PR  INT "38  SPUR  ilB»5"T;  "  SEKTOR 

sms"ch3" 

I NPUT# 1 5 , EN , EMf , ES , ET 
I FEN=0THEN27 1 
T(J)=T:S<J)=S: J-J+l 

F  R  I NT  " «PMWHFFH»  FRMQFTFR  BLOCK :  ”  ,  T;  S" 


(ZE) +Bf : G0T032 1 

322  GET#1 ,Bf : IFBf =CHRf (32) THEN322 

323  Cf=,!" 

324  Cf =Cf +Bf : GET # 1 , Bf : IFBf < >" "THEN324 

325  Kf (ZE)=LEFTf (Cf ,3) : I FZE=0THEN IDf =LEF 
Tf (Cf ,5) 

326  I FST =0THEN3 1 3 

327  CLOSEI :CLOSE 15: RETURN 

RFADY. 

ILll 

Listing  1.  »Disketten-Organisation«  (Schluß) 


283  G0T027 1 

284  60SUB45 

285  G0SUB299: I FENTHENCLOSE 1 5: CL0SE2: GOTO 
46 

286  CLOSE2: CL0SE15 

2e7  I F J  =0THENPR INT" BMOTPMKE I NE  FEHLERHAF 
TEN  BLOECKE  ! " : RETURN 

288  0PEN2 , GN7 , 2 , ” # " 

289  PRINT’Tt^EHLERBLOECKE"  ,  "SPUR"  ,  "SEKTO 
R" 

290  FORI=0TOJ-1 

291  PR  I NT #15, " B-A : 0 " T ( I )  ; S ( I ) 

292  PRINT , , T  ( I )  ,8(1) 

293  NEXT 

294  PR  I  NT  " ES"  J  "  FEHLERBLOECKE  WURDEN  FESTG 
ESTELLT" : CLOSEI 5: CLDBE2: GGSUB302: RETURN 

295  REM  ***************************** 

296  REM  *  FEHLERKANAL  UEBERPRUEFEN  * 

297  REM  ***************************** 

29 B  CLG3E15: OPEN15 , 6N% , 15 

299  INPUT #15,  EN ,  ENf  ,  NE ,  EE :  IFUR7.THENRETUR 

N 

300  CLOSEI 5 


Programmier¬ 
tes  LISTing: 
LISTX-Y 

Bei  Hilfsprogrammen,  die  viele  Benut¬ 
zeranleitungen  enthalten,  gibt  man 
diese  Anleitungen  normalerweise 
über  PRINT-Anweisungen  auf  dem 
Bildschirm  aus.  An  sich  würde  es  bei 
geschickter  Formulierung  jedoch  rei¬ 
chen,  die  sowieso  vorhandenen  REM- 
Erläuterungen  als  Anleitungen  für  den 
Benutzer  mitzuverwenden. 

Nur,  wie  bringt  man  diese  auf  den  Bildschirm?  Mit  LIST  wird 
das  Basic-Programm  jedesmal  zum  Direktmodus  hin  verlassen 
und,  was  noch  schwerer  wiegt,  die  Anfangs-  und  Endzeilen¬ 
nummern  können  nur  als  direkte  Zahlen,  nicht  über  Variablen, 
angegeben  werden.  Unser  Programmvorschlag  (Listing  1)  si¬ 
muliert  den  im  VC  20-Basic  nicht  vorhandenen  Befehl  LISTX-Y 
(X=Variable,  die  die  Anfangszeilennummer  des  zu  listenden 
Programms  übergibt,  Y  =  Endzeilennummer). 
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Man  könnte  sich  ein  solches  Hilfsprogramm  durch  Beschrei¬ 
ben  des  Tastaturpuffers  konstruieren.  Dann  würden  sich  aber 
die  in  den  Puffer  geschriebenen  LIST-Anweisungen  auf  dem 
Bildschirm  störend  bemerkbar  machen.  Andererseits  kommt 
aus  Geschwindigkeitsgründen  nur  ein  Maschinenprogramm  in 
Frage.  Will  man  ein  solches  Maschinenprogramm  per  DATA- 
Zeilen  einlesbar  gestalten,  wäre  der  Aufwand  recht  hoch.  Au¬ 
ßerdem  gäbe  es  Schwierigkeiten  mit  dem  nur  immer  auf  den 
Datenanfang  zurückstellbaren  DATA-Zeiger  (kein  RESTORE  X 
vorhanden).  Einlesen  per  POKE  wäre  noch  aufwendiger.  Um¬ 
gekehrt  muß  aber  ein  solches  Maschinenprogramm  zur  Simu¬ 
lation  von  LIST  Y  notwendigerweise  viele  Teile  enthalten,  die 
bereits  im  Betriebssystem  Vorkommen.  Wir  lösen  das  Problem, 
indem  wir  mit  zwei  einfachen  FOR-NEXT-Schleifen  geeignete 
Teile  des  Betriebssystems  in  den  Kassetten puffer  kopieren 
und  diese  Kopien  dann  durch  sechs  POKE-Anweisungen  so 
abändern,  daß  sie  unseren  Ansprüchen  genügen.  Listing  1 
zeigt  das  entsprechende  Unterprogramm,  das  beim  ersten 
Aufruf  mit  »GOSUB  63000«  die  Maschinenroutine  erzeugt.  Al¬ 
le  weiteren  Aufrufe  können  mit  »GOSUB  6350«  erfolgen,  wo¬ 
durch,  einiges  an  Zeit  gespart  wird.  In  der  Variablen  X  wird  die 
Anfangszeile,  in  Y  die  Endzeile  übergeben.  Listing  3  zeigt  ein 
Demo-Programm.  In  Listing  2  gebe  wir  ein  Anwendungsbei¬ 
spiel  an:  In  einem  längeren  Programm  mögen  alle  REM-Erläu- 
terungen  in  den  Zeilen  100*a  bis  100*a+4  untergebracht 
sein,  also  in  den  ersten  fünf  Zeilen  ab  jeder  vollen  Hunderter¬ 
nummer.  Das  Beispielprogramm  nach  Listing  2  wird  per 
GOSUB63100  angesprungen  und  listet  per  Cursor-Down-Ta- 
ste  alle  oben  genannten  REM-Zeilen  (und  nur  diese,  eventuelle 
weitere  REM-Zeilen  werden  nicht  berücksichtigt).  Und  zwar 
geschieht  dies  in  Endlosform,  das  heißt  nach  Durchgang  durch 
die  letzte  zu  listende  REM-Erläuterung  erscheint  wieder  die  er¬ 
ste  und  so  fort.  Durch  Drücken  der  Return-Taste  gelangt  man 
wieder  ins  Hauptprogramm. 

(Fred  Behringer/ev) 

83000  REM  LIST  X-Y 
63001  REM  ======== 

S3002  REM 

630 1 0  FQR I =0TO45 : P0KEB28+ I , PEEK <50707 + I ) 

:  NEXT 

63020  POKE 845 ,252 ! POKE 856 ,251 

63030  FOR I =0TO 120 : P0KES74+ I , PEEK <50889+ I 

) : NEXT 

63040  P0KE836 ,254 : POKE900 ,253 ! P0KE935 , 19 
:  POKE949  .,36 

83050  POKE 252  ,X/'256  :  P0KE25  1  ,  X-256*PEEK  <2 
52) 

63060  P0K.E254  , Y/256  :  POKE253  ,  Y-25S *PEEK  <2 
54) 

63070  SYS828: RETURN 
READY. 

Listing  1.  Programm  zur  Simulation  von  LISTX-Y.  Ansprung 
per  GOSUB63000.  Einlesezeit  2,6  Sekunden.  Jeder  weitere 
Ansprung  per  GOSUB63050  mit  »sofortiger«  Abarbeitung. 


60010  Einlesen  von  $C613-$C640 

(50707-50752).  Maschinenprogramm  zur 
Berechnung  der  Startadresse  einer  Basic- 
Zeile.  Zeilennummereingabe  (der  Anfangs¬ 
zeile)  in  $0014/$0015  (20/21). 

63020  Verlegen  dieser  Parameterübergabestellen 
nach  $OOFB/SOOFC  (251/252),  da 
$0014/$0015  (20/21)  beim  Ansprung 
SYS828  (siehe  unten)  gestört  werden 
63030  $C6009-$C741  (50889-51009).  Pro¬ 

gramm  zum  Auflisten  der  gewünschten  Zei¬ 
len.  In  diesem  Programm  wird  die  laufende 
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Nummer  der  gerade  gelisteten  Zeile  mit  der 
beim  Ansprung  dieser  Routine  an 
$0014/$0015  (20/21)  übergebenen  Num¬ 
mer  der  Endzeile  verglichen,  und  die  Routi¬ 
ne  wird  verlassen,  wenn  die  Endnummer  er¬ 
reicht  ist.  Auch  hier  läßt  sich  aus  dem  eben 
erwähnten  Grund  die  Stelle  $0014/$0015 
(20/21)  nicht  als  Parameterübergabestelle 
(von  Basic  zu  Maschinenprogramm)  verwen¬ 
den  und  wird  in  63040  zu  $OOFD/$OOFE 
(253/254)  abgeändert.  Überschreiben  des 
JMP-Befehls  in  $C714  (50964)  mit  einem 
RTS-Befehl  sorgt  dafür,  daß  nicht  zum  Basic- 
Warmstart  zurückgekehrt  wird,  sondern  zum 
Hauptprogramm.  Die  Sprungadresse 
$0306/$0307  (774/775),  die  in  $C717 
(50967)  wirksam  wird,  hätte  geändert  wer¬ 
den  müssen,  da  sich  der  Sprung  ja  nun  auf 
die  der  Stelle  $C71A  (50970)  entsprechen¬ 
den  Stelle  in  der  Kopie  im  Kassetten  puffer 
bezieht.  Es  war  einfacher,  den  (hier)  über¬ 
flüssigen  JMP-Befehl  in  $C717  (50967)  zu 
umgehen,  indem  die  Sprungadresse  in  der 
der  Stelle  $C705  (50949)  entsprechenden 
Stelle  der  Kopie  abgeändert  wurde. 

63050  Die  vom  Hauptprogramm  in  X  stammende 
Nummer  der  Anfangszeile  wird  in  Low  By¬ 
te/High  Byte  gespalten  und  der  Stelle 
251/252  übergeben  (siehe  oben) 

63060  Entsprechend  für  die  aus  Y  stammende 
Nummer  der  Endzeile  und  253/254 
63070  Aufruf  des  Maschinenprogramms  und  Rück¬ 
kehr  ins  Basic-Hauptprogramm.  Nach  Rück¬ 
kehr  steht  in  $030D/$030C  (781/780)  die 
Nummer  (Low  Byte/High  Byte)  der  nächstan¬ 
stehenden  Basic-Zeile  zur  Verfügung. 


Beschreibung  des  Programms  nach  Listing  1  zur  Simula¬ 
tion  von  LISTX-Y 


63100  REM  AUSDRUCKEN  DER  ZEILEN  100*A  BI 
S  100  *A  +4 
63105  REM 

63  110  GOSIJB63000  :  PR  I NTCHR$  <  147)) 

63120  X=0 

63130  GET X$: IFX$=" "THEN63 130 

63140  IFX$=CHR$< 13)THEN63200 

63150  IFX$< >CHR$< 17 )THEN63 120 

63160  Y=X+4iGOSUB63050:FRINTCHR$< 145); 

63  170  X=X+ 100 :  IFX  >63999THENX=0 : G0T063 160 

63180  I =PEEK  <  7S 1 ) +258 *PEEK <780 ) :  IFI<Y+10 

R I >X +4 THE NX  =  I NT  < I / 100 ) *  1 00 

63130  G0TG63 1 30 

63200.  RETURN 

READY. 

Listing  2.  Programm  zum  Ausdrucken  aller  Zeilen  mit  den 
Nummern  100*a  bis  100*a+4,  wobei  a  von  0  bis  633  geht. 
Nicht  vorhandene  Zeilen  werden  ohne  Verzögerung  über¬ 
sprungen.  Der  Ausdruck  läuft,  solange  die  Cursor-Down- 
Taste  gedrückt  ist,  auch  über  63304  hinaus  (Wiederanfang 
bei  0). 


63110 

Einlesen  des  Simulationsprogramms  für 
LISTX-Y  nach  Listing  1 

63120 

Anfangszeile  auf  Null 

63130 

63140 

Wenn  Return-Taste,  dann  zurück  ins  Haupt¬ 
programm 
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(Formatieren,  Gültigkeitskontrolle  (Vality  check)  etc.),  sollen  in¬ 
tegriert  sein.  Dazu  gehört  auch  eine  komfortable  Löschmög¬ 
lichkeit,  um  Disketten  »aufzuräumen«.  Schließlich  soll  das  Pro¬ 
gramm  möglichst  wenig  Speicherplatz  belegen,  damit  zum  Ko¬ 
pieren  genug  zur  Verfügung  steht. 

Aus  all  dem  ergibt  sich  eine  Konsequenz:  Ein  solches  Pro¬ 
gramm  läßt  sich  nur  in  Maschinensprache  schreiben,  da  Basic 
einfach  zu  langsam  ist  und  zuviel  Speicherplatz  belegt.  Trotz¬ 
dem  habe  ich  einige  Einschränkungen  gemacht: 

Relative  Files  können  nicht  kopiert  werden.  Dies  verlangt  ei¬ 
ne  zu  aufwendige  Verwaltung  und  kommt  auch  zu  selten  vor, 
um  es  ins  Programm  zu  integrieren.  In  einem  Programmdurch¬ 
lauf  können  höchstens  32  Files  kopiert  werden.  Mehr  Filena¬ 
men  kann  das  Programm  nicht  speichern. 

Ansonsten  aber  läßt  »Super  Copy«  kaum  noch  Wünsche  of¬ 
fen,  höchstens  den  nach  einem  schnelleren  Laufwerk.  Aber 
auch  da  läßt  sich  wohl  noch  etwas  machen. 

Wie  arbeitet  »Super  Copy«? 

Nach  dem  Programmstart  meldet  sich  das  Programm  mit  ei¬ 
nem  Menü: 

1.  Directory 

2.  Kopieren 

3.  Formatieren 

4.  Scratchen 

5.  Validieren 

6.  Ende 

Durch  Druck  auf  eine  Ziffer  wählen  Sie  die  entsprechende 
Funktion  aus.  Übrigens  können  Sie  im  Programm  immer  dann, 
wenn  Sie  irgendeine  Taste  drücken  müssen,  mit »— « in  dieses 
Menü  zurückkehren.  Gehen  wir  nun  die  einzelnen  Funktionen 
einmal  durch. 

Zur  Funktion  »Directory«  ist  nicht  viel  zu  sagen.  Es  erscheint 
das  Verzeichnis  aller  Files  auf  der  Diskette. 

Cc  n  »Formatieren«  müssen  Sie  den  Diskettennamen  und 
die  ID  —  wie  üblich  durch  ein  Komma  getrennt  —  angeben.  Ei¬ 
ne  ID  ist  nur  bei  einer  neuen  Diskette  wichtig.  Verzichten  Sie 
darauf,  werden  zwar  alle  Einträge  im  Directory  gelöscht,  aber 
es  entfällt  das  Neuformatieren  der  einzelnen  Spuren.  »Validie¬ 
ren«  (Gültigkeitskontrolle)  entspricht  dem  Basic-Befehl  OPEN 
1,8,15,”V”:CLOSE  1. 

Entscheiden  Sie  sich  für  »Kopieren«,  werden  Sie  aufgefor¬ 
dert,  die  Quelldiskette  einzulegen.  Nach  Tastendruck  erschei¬ 
nen  nun  die  Namen  der  Programme.  Files,  die  kopiert  werden 
sollen,  kennzeichnen  Sie  mit  der  »J«-Taste,  die  anderen  mit 
»N«.  Relative  Files  können  nicht  kopiert  werden,  daher  er¬ 
scheint  eine  Fehlermeldung,  wenn  Sie  versuchen,  solche  Fi¬ 
les  mit  »J«  zu  markieren.  Das  Programm  kann  maximal  32  Na¬ 
men  speichern.  Wenn  Sie  mehr  als  32  Files  kopieren  wollen, 
erscheint  die  Fehlermeldung  »Kopierliste  voll«.  Sie  können  nun 
die  bisher  markierten  Programme  kopieren  und  nach  Ab¬ 
schluß  einen  neuen  Programmdurchlauf  starten.  Haben  Sie  Ih¬ 
re  Auswahl  beendet,  gibt  das  Programm  an,  wieviele  Blöcke 
insgesamt  zu  kopieren  sind,  damit  Sie  genügend  Platz  auf  der 
Zieldiskette  bereitstellen  können.  Ein  neues  Menü  erscheint: 

1.  Directory 

2.  Formatieren 

3.  Validieren 

*  *  *  Space*  *  * 
für  weiter 

Sie  können  nun  in  aller  Ruhe  eine  Zieldiskette  aussuchen, 
eventuell  noch  formatieren  etc.  Sie  kommen  in  jedem  Fall  in 
dieses  Menü  zurück.  Sind  alle  Vorbereitungen  abgeschlos¬ 
sen,  drücken  Sie  »Space«,  um  mit  dem  Kopieren  fortzufahren. 
Das  Programm  fordert  nun  auf,  die  Quelldiskette  einzulegen, 
und  liest  die  vorher  markierten  Programme  ein.  Sollte  dabei  ein 
Fehler  auftreten,  weil  Sie  zum  Beispiel  aus  Versehen  die  fal¬ 
sche  Diskette  eingelegt  haben,  wird  eine  entsprechende  Mel¬ 
dung  ausgegeben  und  gefragt,  ob  dieses  File  übersprungen 
oder  ein  neuer  Versuch  unternommen  werden  soll.  Auch  Lese- 
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63150 

Wenn  nicht  Cursor-Down-  oder  Return-Taste, 
dann  Anfang  wieder  0. 

63160 

Wenn  Cursor-Down-Taste,  dann  Listen  der 
Zeilen  X  bis  X+4  und  Ausgleich  für  Zeilen¬ 
vorschub 

63170 

Sprung  um  100  nach  vorn.  Wenn  Vorrat  er¬ 
schöpft,  Zeilennummer  wieder  auf  0  (End¬ 
losdurchlauf). 

63180 

Schnelles  Vortasten  zur  nächsten  vorhande¬ 
nen  Zeile  mit  Nummer  zwischen  1 10  *a  und 
100*a+4 

63190 

Weiter  in  Eingabeschleife 

Beschreibung  des  Programms  nach  Listing  2  zum  Aus¬ 
drucken  aller  Kopf-REM-Zeilen.  Das  Programm  verwendet 
die  Routine  für  LISTX-Y  aus  Listing  1. 


10  REM  LIST-DEMO 
£0  REM  ========= 

30  REM 
4  0  REM 
50  REM 
80  REM 

“’0  PR  INT"  LI  ST- DEMO" 

80  PRINT 

90  I NPUT" VON"  ;  X :  I NPUT "BIS"; Y 
100  PRINT 

110  GOSUB63000 : REM  LIST  X-Y 

1 £0  PR  I NT : PR  I NT " *  *  OK  **  (TASTE ) " 

130  GETA*: IFA*  = " "THEN130 

140  PR INT: PR  INT 

150  G0TG70 

160  REM 

170  REM 

180  REM 

READY. 


o r  lii 


Listing  3.  LIST-Demo  zum  Testen  der  Routine  nach  Listing  1 


Kopieren  mit 
Komfort: 
Super  Copy 

Bereits  im  ersten  64’er  wurde  Ihnen 
mit  »Disk  Copy«  ein  Kopierprogramm 
für  Disketten  vorgestellt.  Wir  möchten 
Ihnen  heute  eine  völlig  revidierte  Fas¬ 
sung  vorstellen,  die  erheblich  lei¬ 
stungsfähiger  und  komfortabler  ist. 

Was  soll  ein  gutes  Kopier  Programm  leisten?  Nun,  zunächst 
einmal  soll  es  kopieren.  Dazu  muß  man  auswählen  können,  was 
kopiert  werden  soll.  Dieser  Vorgang  dauert  beim  »Disk  Copy« 
sehr  lange,  vor  allem,  wenn  auf  der  Quelldiskette  viele  Pro¬ 
gramme  sind.  Bei  »Super  Copy«  geht  es  genauso  schnell  wie 
das  Einlesen  eines  Directory.  Fehler  beim  Kopieren  sollen 
möglichst  ohne  Programmabsturz  und  völligen  Neubeginn  be¬ 
hebbar  sein.  Gerade  hier  liegt  eine  Stärke  von  »Super  Copy«. 
Alle  Funktionen,  die  man  sonst  noch  beim  Kopieren  braucht 
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fehler  des  Laufwerks  werden  in  dieser  Weise  gehandhabt.  In 
einem  Durchgang  können  maximal  234  Blöcke  eingelesen 
werden.  Ist  noch  mehr  zu  kopieren  wird  das  Einlesen  abgebro¬ 
chen. 

Jetzt  müssen  Sie  angeben,  ob  Sie  fortlaufend  oder  einzeln 
kopieren  möchten.  Fortlaufend  bedeutet,  daß  die  Files  der 
Reihe  nach  auf  dieselbe  Diskette  geschrieben  werden.  Beim 
Einzelkopieren  dagegen  springt  das  Programm  nach  jedem 
Schreibvorgang  wieder  in  ein  Menü,  und  Sie  haben  die  Mög¬ 
lichkeit,  die  Diskette  zu  wechseln,  ein  Directory  anzusehen,  zu 
formatieren  oder  zu  validieren.  Außerdem  können  Sie  auch 
das  zuletzt  kopierte  Programm  noch  einmal  auf  eine  andere 
Diskette  kopieren.  Das  jeweils  nächste  File  wird  vor  dem 
Schreiben  angezeigt,  damit  Sie  die  richtige  Zieldiskette  eini¬ 
gen  können. 

Haben  Sie  Ihre  Wahl  getroffen,  läuft  der  Schreibvorgang  in 
der  oben  beschriebenen  Art  und  Weise  ab.  Schreibfehler  wer¬ 
den  wie  Lesefehler  behandelt,  das  heißt  es  wird  gefragt,  ob  ein 
neuer  Versuch  gestartet  oder  das  File  übersprungen  werden 
soll. 

Sind  alle  Programme  kopiert,  erscheint  die  Meldung  »KOPIE 
FERTIG«.  Sind  aber  nach  dem  ersten  Lese/Schreib-Durch- 
gang  noch  weitere  Programme  zu  kopieren,  fährt  das  Pro¬ 
gramm  mit  der  Aufforderung  zum  Einlegen  der  Quelldiskette 
fort. 

»Scratchen«,  also  das  Löschen  von  Programmen,  gehört  zu 
den  angenehmsten  Funktionen,  die  »Super  Copy«  zu  bieten 
hat.  Seien  Sie  aber  vorsichtig,  sonst  haben  Sie  bald  überhaupt 
keine  Programme  mehr.  Der  Ablauf  ist  ähnlich  wie  beim  Kopie¬ 
ren.  Doch  anstatt  die  Files  zum  Kopieren  zu  kennzeichnen, 
werden  sie  nun  zum  Löschen  markiert.  Sollten  Sie  einen  Fehler 
gemacht  haben,  ist  allerdings  noch  nichts  verloren,  denn  am 
Ende  des  Markiervorgangs  müssen  Sie  noch  einmal  aus¬ 
drücklich  durch  Drücken  der  »Space«-Taste  bestätigen,  daß  es 
Ihnen  ernst  ist. 

Zum  Programmaufbau: 

Ausführliche  Erläuterungen  des  Assemblerquelltextes  möch¬ 
te  ich  Ihnen  und  mir  ersparen.  Nur  soviel:  Das  Programm  ist  im 
wesentlichen  modular  aufgebaut,  das  heißt  es  besteht  aus  ein¬ 
zelnen  Blöcken,  die  von  den  verschiedenen  Menüs  aus  ange¬ 
sprungen  werden.  Daher  ist  es  nicht  nötig,  häufig  vorkommen¬ 
de  Programmteile  wie  Tasten-  oder  Fehlerabfragen  ständig 
neu  zu  schreiben.  Auch  der  Teil  zum  Markieren  der  Program¬ 
me  ist  beim  »Scratchen«  und  beim  Kopieren  identisch.  Ein 
Flag,  also  eine  Speicherstelle,  deren  Inhalt  etwas  »signalisie¬ 
ren«  soll,  entscheidet  darüber,  welche  Texte  ausgegeben  und 
wohin  zurückgesprungen  werden  soll. 

Eine  solche  Programmiertechnik  trägt  dazu  bei,  die  Pro¬ 
gramme  ebenso  kurz  wie  übersichtlich  zu  halten. 

Hinweise  zum  Abtippen: 

Bevor  Sie  sich  ans  Eintippen  des  Ladeprogramms  machen, 
müssen  Sie  unbedingt  folgende  Befehle  im  Direktmodus  ein¬ 
geben: 

POKE  43,1:  POKE  44,32:  POKE  8192,0:  NEW  (RETURN) 

Damit  wird  der  Start  des  Basic-Speichers  nach  oben  verlegt. 
Tun  Sie  das  nicht,  steht  Ihr  Basic-Ladeprogramm  dort,  wo 
nachher  das  fertige  Kopierprogramm  hin’  gePOKEt’  wird. 

Ich  weiß,  daß  es  eine  Zumutung  ist,  eine  derartige  Menge 
von  Zahlen  abzutippen,  und  kein  Mensch  wird  dies  auf  Anhieb 
fehlerfrei  bewerkstelligen  können.  Um  Ihnen  aber  die  Fehler¬ 
suche  so  leicht  wie  möglich  zu  machen,  habe  ich  den  ’DATA- 
Zeilenberg’  in  1 1  Blöcke  eingeteilt.  Zu  jedem  dieser  Blöcke  ge¬ 
hört  eine  Prüfsumme.  Stimmt  etwas  nicht,  gibt  das  Ladepro¬ 
gramm  an,  in  welchem  Block  der  Fehler  steckt.  Achten  Sie 
aber  vor  allem  darauf,  daß  Sie  am  Zeilenende  kein  Komma 
mehr  schreiben,  denn  das  interpretiert  der  Computer  als  Null! 

Nach  dem  Abtippen  sollten  Sie  vor  dem  ersten  Programm¬ 
lauf  dieses  unbedingt  abspeichern,  denn  sonst  könnte  es  pas¬ 
sieren,  daß  sich  das  Programm  durch  eine  fehlerhafte  Eingabe 
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selbst  löscht,  und  die  ganze  Mühe  war  umsonst.  Vor  dem  La¬ 
den  des  Programms  müssen  Sie  die  obengenannte  Zeile  ein¬ 
tippen,  um  die  Basic-Startadresse  wieder  hochzulegen. 

Starten  Sie  dann  das  Programm  mit  »RUN«.  Erscheint  wäh¬ 
rend  des  Programmablaufs  die  Fehlermeldung  >TYPE  MIS- 
MATCH  ERROR«,  dann  haben  Sie  bestimmt  ein  »I«  statt  einer 
»1«  eingetippt  oder  ein  »0«  statt  einer  »0«.  Ansonsten  müssen 
Sie  alle  Fehler  in  den  DATA-Blöcken  korrigieren.  Wenn  alles 
richtig  ist,  meldet  sich  das  Ladeprogramm  nach  einiger  Zeit  mit 
»READY«.  Nun  steht  das  Programm  fertig  im  Speicher.  Um  es 
auf  Diskette  abzuspeichern,  müssen  jetzt  folgende  Befehle 
eingetippt  werden: 

SYS64738  (RETURN) 

Keine  Angst!  Das  ist  zwar  ein  Befehl,  der  den  Computer  in  den 
Zustand  direkt  nach  dem  Einschalten  zurückversetzt,  aber  un¬ 
ser  Programm  ist  nach  wie  vor  im  Speicher  vorhanden.  Nun 
noch  folgende  Zeilen: 

10  SYS  2064  (RETURN) 

Das  ist  der  Startbefehl  für  »Super  Copy« 

POKE  45,  251  :  POKE  46,  18 
Damit  wird  das  Basic-Ende  auf  das  Programmende  gesetzt. 
Jetzt  können  Sie  mit 
SAVE  »Super  Copy«,  8 

das  fertige  Programm  auf  Diskette  abspeichern. 

(Dietrich  Weineck/gk) 


1  REM  ************************** 


2  REM  *  * 

3  REM  *  SUPER  CÜPY  1541  * 

4  REM  *  VON  N. MANN  &  D. WEINECK  * 

5  REM  *  FLEETRADE  40  * 

6  REM  *  2800  BREMEN  * 

7  R  *  TEL.  0421  /  493090  * 

8  REM  *  * 


9  REM  ************************** 

10  FORI=0TO10: READA: PR ( I ) =A: NEXT 
20  SA=2064: 1=0 

30  PA=SA+256*I:CH=0 

40  FORJ=0TG255: READA: POKEPA+J , A: CH=CH+A: 
NEXT 

50  I FCH< >PR ( I ) THEN90 
55  1=1+1: IFI<10THEN30 
60  PA=PA+256: CH=0 

70  FORJ=0TO234: READA: POKEPA+J , A: CH=CH+A: 
NEXT 

B0  IFCH=PR (I ) THENEND 

90  PR INT "FEHLER  IN  BLOCK" 1+1 : END 

1 00  DAT A2S785 , 26329 , 30 1 4S , 25856 , 28858 , 29 

119,27622,19508,15126,14152,13792 

110  REM 

120  REM  ***  BLOCK  1  *** 

130  REM 

140  DATA 169, 1 1 , 141,32,208,141,33,208,169 
,1,141, 134,2,169,139,160,15,32,11, 15 
150  DAT A32 , 231 , 14,201,49,144,249,201,55, 

1 76 . 245 .32.210. 255 .201.49. 208 .6.32 

160  DATA97,B, 76, 16,8,201 ,50,208,3,76, 194 
,8,201,51 ,208,6,32,230,8,76, 16,8,201 
170  DAT A52 , 208 ,3,76,78,9, 20 1 ,53,208,6,32 
, 185,9,76,16,8,76,116,164,32,68,229 
180  DATA169,8, 170, 160,0,32,186,255,169,1 
, 162,237,160, 18,32,189,255,32, 192,255 
190  DAT  A 169 , 8 , 32 , 180,255,169,0,32,150,25 

5.32. 165.255.32. 165.255.76. 166.8.32 

200  DATA165, 255, 133,251 ,32,165,255,166,2 
51 ,32,205,189,32,237,14,32,165,255 
210  DATA240, 6, 32, 210, 255, 24, 144,245,32,2 
40,14,32, 165,255,32,165,255,165,144 
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220  DATA240, 216, 32, 171 ,255, 169,8,32, 195, 

255.32.136.14.32.245.14.96.32.209.9 

230  DATA 169, 111,160,18,32,11,15,169,255, 
141 , 195,2,32,117,1 1 ,32,222,11,32,195 
240  DATA1 1 ,32, 117, 1 1 ,32,234,12,32,227,1 1 
,76,221,8, 169,168,160, 17,32,11,15,162 
250  DATA0, 32, 207, 255, 157,64,3,232,201 , 13 
,208,245,169,0,202,157,64,3,169,78 
260  DATA141 ,61 ,3,169,48, 141,62,3,169,58, 

141 .63.3.169 
270  REM 

280  REM  ***  BLOCK  2  *** 

290  REM 

300  DATA15, 162,8, 168,32, 186,255,162,3,18 
9,61 ,3,240,3,232,208,248,138, 162,61 
310  DATA160, 3,32, 189,255,32, 192,255,32, 1 
63,14,8,169, 15,32, 195,255,40,176,1 
320  DATA96, 169,200, 160, 17,32, 1 1,15,32,24 
5,14,201,74,240,165,201 ,78,206,245 
330  DATA76, 16,8,32,68,229, 169,32,160, 18, 

32.11.15. 169.128.141.196.2.32.224.9 

340  DATA169, 8, 32, 195,255, 173,193,2,208,3 

,76,16,8,32,68,11, 169,135,160,18,32 

350  DATA 11, 15,32,222,11 ,169,83,141,61,3, 

169,48,141,62,3,169,58, 141,63,3,138 

360  DATA24, 105,3, 162,61 , 160,3,32,189,255 

, 169,15,162,8,168,32,186,255,32,192 

370  DATA255, 169,15,32,195,255, 174,192,2, 

232,236,193,2,176,9,238,192,2,32,18 

380  DATA 12, 76, 122,9,76, 16,8,169,86,141,2 

39,18,169,27,160,17,32,11,15,32,75 

390  DATA14 , 169,73,141,239,18,32, 136,14,9 

6,32,68,229,169,0,141,196,2, 169,46 

400  DATA160, 17,32, 11 ,15,32,245, 14,32,240 

, 14,32,240,14,32,75,14,32,136,14,144 

4 1 0  DAT A5 ,104,104,76,16,8,169,8,170,160, 

0,32, 186,255, 169,1,162,237,160,18,32 

420  DATA189 ,255,32, 192,255, 169,8,32, 180, 

255.169 
430  REM 

440  REM  ***  BLOCK  3  *•** 

450  REM 

460  DATA0, 32, 150,255,160,4,32, 165,255, 13 
6,208,250,32,165,255,133,251 ,32,165 
470  DATA255, 166,251 ,32,205,189,32,237, 14 
,32,165,255,240,6,32,210,255,24,144 
480  DAT A245, 32, 240, 14,32,240, 14,32, 165,2 
55,32,165,255,160,0,140,193,2,32,165 
490  DAT A255 ,141,192,2,32,165, 255 ,141,194 
,2,174, 192,2,32,205,189,32,237,14,160 
500  DAT A0, 32, 165,255,32,210,255, 153,64,3 
,240,3,200,208,242,32, 165,255,32,165 
510  DATA255, 165, 144,240,9,44, 196,2, 16,1, 
96,76,50,11, 173, 194,2,208,7,173,192 
520  DATA2 , 20 1 ,235,144, 10,169,70,160,16,3 
2,11,15,76,44,11, 173,193,2,201,32,144 
530  DATA10, 169,86, 160, 16,32,11, 15,24,144 
,214, 169,0,133,8,169,32,133,211,169 
540  DATA1 10, 160, 16,32, 1 1 , 15,32,245, 14,20 
1,78,240,104,201,74,208,245, 169,125 
550  DATA160, 16,32, 11 ,15, 173, 193,2,32,233 
,  13,234,234,162,0,232, 189,64,3,201 
560  DATA34, 208,248, 142, 194,2,232, 189,64, 
3,201 ,34,240,7,145,65,234,232,200,208 
570  DATA242 ,138,172,193,2,24, 237 ,194,2,1 
53,0,19,173,192,2,153,160,19, 189,64 
580  DATA3, 208, 15,44, 196,2,48,21 ,169,135, 
160,16,32, 1 1 , 15,76,44 
590  REM 

600  REM  ***  BLOCK  4  *** 

610  REM 

620  DATA11 ,201 ,B3 , 240 , 7 , 20 1 , 80 , 240 , 3 , 232 


,208,225, 153,32,19,238,193,2,24, 144 
630  DATA7,169, 170, 160,16,32,11,15,32,240 
, 14,76,72,10,32,171 ,255,169,8,32,195 
640  DATA255, 173,193,2,208,5,104,104,76,1 
6,8,162,0,142,198,2,142,197,2,32,240 
650  DAT A 1 4 , 32 , 240 , 14,169,18,32,210,255,2 

4.189.160.19.109. 197.2.141.197.2.169 
660  DATA0, 109, 198,2, 141 ,198,2,232,236, 19 

3.2.144.233.174.197.2.76.205.189.169 
670  DATA234, 160, 16,32, 11 , 15,44,195,2,48, 
7,169,215,160,18,32,11, 15,169,160,160 
680  DATA18 , 32 , 1 1 , 15,32,245,14,201,32,208 
,1,96,201 ,50,208,6,32, 185,9,76,117 

690  DATA1 1,201 ,49,208,6,32,97,8,76,117,1 
1,201 ,51,208,6,32,230,8,76,117,11,201 
700  DAT A52, 208, 214, 44, 195,2,48,209,104, 1 
04,76,244,12, 169,180,160,16,32,11,15 
710  DATA32, 245, 14,201 ,49,240,7,201 ,50,20 
8 , 245 , 1 69 ,0,44,169, 255 , 141, 1 95 ,2,96 
720  DATA162 ,0,142,192,2,169,22,157,64,19 
,169,0,141,194,2,44,196,2,16,10,169 
730  DATA62 ,160,18,32,11,15,24,144,10,138 
,240,29,169,46,160,17,32,11,15,32,245 
740  DATA14, 44, 196,2, 16, 14,201 ,32 
750  REM 

760  REM  ***  BLOCK  5  *** 

770  REM 

780  DATA208 , 244 , 169 , 96 , 160,18,32,11,15,2 

4, 144,7,169,78,160,17,32,11, 15,172 

790  DATA192,2, 190,0, 19, 173,192,2,32,233, 

13,177,65,32,210,255,200,202,208,247 

800  DATA32 , 28 ,15, 174,192,2,189,0,19,133, 

251 , 173,192,2,32,233,13,162,0,177,65 

810  DATA157, 64, 3, 200, 232, 198,251 ,20B, 245 

,44.196,2,16,1,96,160,0,185,241,18 

82C  JATA157, 64, 3, 200, 232, 192,4, 144,244, 1 

72,192,2, 185,32,19,157,61,3,138,162 

830  DATA64, 160,3,32, 189,255,169,2,162,8, 

168.32.186.255.32.192.255.174.192.2 

840  DATA189, 64, 19, 160,0, 132,251 , 133,252, 

162,2,32,198,255,32,165,255,32,9,14 

850  DATA166, 144,240,246,32, 136,14,8,32,2 

04,255,169,2,32,195,255,40,144,5,32 

860  DATA209, 14, 176,44,174,192,2,56,165,2 

51,233, 1 , 157,128, 19,165,252,233,0,157 

870  DATA96, 19,232,236,193,2,176,28,24,12 

5.160.19.176.22.238.192.2.238.194.2 

880  DATA 165, 252, 24, 105, 1,157,64,19,169,1 

5.32. 195.255.76.28.12.96.173. 192.2 

890  DATA56, 237, 194,2, 141 , 192,2,169,90,16 
0,17,32,11,15,32,245,14,32,75,14,169 
900  DATA 121 , 160,17,32,1 1,15,172,192,2,19 
0,0,19,173, 192 
910  REM 

920  REM  ***  BLOCK  6  *** 

930  REM 

940  DAT A2 , 32 , 233 , 13,234,177,65,234,32,21 
0,255,200,202,208,246,32,28,15,174 
950  DATA192 ,2, 189 ,0, 19, 133,251,173, 192,2 
,32,233,13, 162,0, 177,65,157,64,3,232 
960  DAT A200 ,198,251, 208 , 245 ,160,0,185,24 
6,18, 157,64,3,200,232,192,4,144,244 
970  DATA 172, 192,2,185,32,19,157,61,3,138 
,162,64,160,3,32, 189,255, 169,2,162 
980  DATA8, 168,32, 186,255,32,192,255,174, 
192,2,160,0,189,64,19,132,251, 133,252 
990  DATA189, 128, 19, 133,253, 189,96, 19,133 
,254, 162,2,32,201,255,32,26,14,32,168 
1000  DATA255, 165,253, 197,251 ,165,254,229 
,252, 176,240,32,204,255,169,2,32,195 
1010  DATA255, 32, 136, 14, 144,5,32,209, 14, 1 
76, 16,44,195,2,48,3,76,213,13,206,194 
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1020  DAT A2 ,48,6, 238 , 192,2,76,254,12,238, 

192.2. 174.192.2.236. 193.2. 176.4.32.240 
1030  DATA 14, 96, 169, 133, 160, 17,32,11 ,15,3 
2,245,14,104,104,76,16,8,32,117,11,206 
1040  DATA194, 2, 16,3,76, 183, 13,238, 192,2, 
32,34,14,76,244,12,160,0, 10,10,132,66 
1050  DATA10, 38, 66, 10,38,66, 133,65, 165,66 
,24,105,20,133,66,160,0,96,120,160,52 
1060  DATA132 , 1 , 160,0,96,32,1 ,14,145,251, 
230,251 

1070  REM 

1080  REM  **+  BLOCK  7  -*** 

1090  REM 

1 1 00  DAT A208 , 2 , 230 , 252 ,160,55,132,1,88,9 
6,32,1,14,177,251,76,14,14,169,12,160 
1110  DATA 18, 32, 11 , 15,173,192,2, 10,10,10, 
10,8,174,192,2,188,0,19,170,189,0,20 
1120  DAT A40 . 8 , 144,3, 189,0,21,32,210,255, 

232.136.208.239.40.96.169. 15.162.8.168 
1130  DATA32, 186, 255, 169,1, 162,239,160, 18 
,32,189,255,32,192,255,169,15,76,195 
1140  DATA255, 32, 165,255,41 ,15,10,10,10,1 
0,133,87,32,165,255,41 ,15,5,87,96,72 
1150  DATA74, 74, 74, 74, 32, 128, 14, 104, 41, 15 
,24,105,48,76,210,255,169, 15, 162,8,168 
1160  DATA32, 186,255, 169,0,32, 189,255,32, 
192,255,32, 163, 14, B, 169,15,32,195,255 

1 170  DATA40 , 96 , 162,15,32,198,255,32,100, 

14.201 . 1 .8.144.11.72.32.240.14.32.240 
1180  DATA 14, 104,32, 1 19,14,32,165,255,201 
,13,240,10,40,8,144,245,32,210,255,24 
1190  DATA 144, 239, 32, 204,255,40,96, 169,22 
3,160,17,32,11, 15,32,245,14,201,49,208 
1200  DATA2 , 24 , 96 , 201 ,50,208,243,56,96,32 
,228,255,240,251,96, 169,32,44,169,13 
1210  DATA76 , 210 , 255 , 32 , 231 , 14,201,95,240 
,1,96,169,15,32,195,255,32,231,255,162 
1220  DATA247, 154,76, 16,8,133,87,132,88,1 
60 

1230  REM 

1240  REM  •***  BLOCK  8  *-** 

1250  REM 

1260  DATA0, 177,87,240,6,32,210,255,200,2 
08,246,96,162,0,142,64,3,142,65,3,174 
1270  DATA192, 2, 189, 160, 19, 162,8,72, 104, 1 
0,72,248, 173,65,3,109,65,3,141,65,3 
1280  DATA 173, 64, 3, 109,64,3, 141,64,3,216, 
202,208,230,104,173,64,3,9,48,141,64 
1290  DATA3, 173,65,3,41 ,15,9,48,141,66,3, 

173.65.3.74.74.74.74.9.48.141 .65.3.169 
1300  DATA29, 133, 211, 162,0, 189,64,3,201 ,4 
8,208,10,169,32,157,64,3,232,224,3, 144 
1310  DATA239, 162,0, 189,64,3,32,210,255,2 

32.224.3.144.245.96. 147.13.13.32.32 

1 320  DATA32 , 32 , 32 ,32,32,42,42,42,42,32,8 
3,85,80,69,82,32,67,79,30,89,32,49, 53 
1330  DATA52 ,49,32,42,42,42,42,13,32,32,3 
2,32,32,32,32,40,67,41 ,32,66,89,32,78 
1 340  DATA46 ,77,65,78,78,32,38,32,68,46,8 

7.69.73.78.69.67.75.13.13.13.13.32.32 

1 350  DATA49 ,46,32,68,73,82,69,67,84,79,3 

2.89.13. 32 .32.50.46.32.75.79.80.73.69 
1360  DATA82, 69, 78, 13, 32,32, 51 ,46,32,70,7 

9.82.77.65.84.73.69.82.69.78.13.32.32 
1370  DATA52, 46, 32, 83, 67, 82, 65, 84, 67, 72, 1 

3.32.32 
1380  REM 

1390  REM  ***  BLOCK  9  *■** 

1400  REM 

1410  DATA53 ,46,32,86,65,76,73,68,73,69,8 

2.69.78.13.32.32.54.46.32.69.78.68.69 
1420  DATA13, 13, 13,13,32,32, 18,32,66,73,8 


4,84,69,32,87,65,69,72,76,69,78,32, 83 
1430  DAT A73, 69, 32, 58, 32, 146,32,0, 13,13,3 
2,70,73,76,69,32,90,85,32,76,65,78,71 
1440  DATA0, 13, 13,32,18,32,75,79,80,73,69 
,82,76,73, 83 ,84,69,32,86,79,76,76,32 
1450  DAT A 1 46 ,0,74, 65 , 47 , 78 , 69 , 73 ,78,1 57 , 
157,157,157,157,157,157,0, 18,32,74,65 
1460  DATA32, 146,32,32,32,0, 13,32,32, 18,3 
2,70,65,76,83,67,72,69,82,32,70,73,76 
1 470  DAT A69 ,84,89,80,32,146,32,32,32,32, 
32,18,94,94,94,146,13,0,18,78,69,73 
1480  DAT A78, 146,32,32,32,0, 13, 13,13,13,3 
2,75,79,80,73,69,82,86,79,82,71,65,78 
1490  DAT A7 1 ,58,13,13,32,32,49,46,32,70,7 

9,82,84,76,65,85,70,69,78,68,13,32,32 
1500  DAT A50, 46, 32, 69, 73, 78, 90, 69, 76, 73, 1 
3,13,13,0,13,13,13,32,49,46,32,68,73 
1510  DATA82, 69, 67, 84, 79, 82, 89, 13,32,50,4 

6.32.86.65.76.73.68.73.69.82.69.78.13 
1520  DATA32, 51 ,46,32,70,79 

1530  REM 

1540  REM  ***  BLOCK  10  *** 

1550  REM 

1560  DATA82, 77, 65, 84, 73, 69, 82, 69, 78, 13,0 
,13,13,32,86,65,76,73,68,73,69,82,69 
1570  DATA78,32,46,46,46, 13,0, 13, 13,32, 18 
,32,81,85,69,76,76,45,68,73,83,75,69 
1580  DATAB4, 84, 69, 32, 69, 73, 78, 76, 69, 71 ,6 
9,78,32,146,13,0,13,13,32,82,69,65,68 
1590  DATA73, 78,71 ,32,0, 13, 13,32,18,32,90 
,73,69,76,45,68,73, 83 ,75,69,84,84,69 
1600  DATA32, 69, 73,78,76,69,71 ,69,78,32, 1 
46,13,0,13,13,32,87,82,73,84,73,78,71 
1610  DAT A32 , 0 , 13,13,32,32,18,32,75,32,79 
,32,8-»  32,73,32,69,32,32,32,70,32,69 
1620  D.-.TA32, 82, 32, 84, 32, 73, 32, 71 ,32,33,3 
2,146,13,0,13,13,32,32,68,73,83,75,78 
1 630  DAT A65 ,77,69,78,32,85,78,68,32,73,6 
B, 32, 69, 73, 78, 71 ,69,66,69,78, 13, 13,0 
1640  DATA13, 13, 32, 78, 79, 67, 72, 32, 69, 73, 7 
8,32,86,69,82,83,85,67,72,32,63,13,0 
1650  DATA13, 13,32,32,49,46,32,85,69,66,6 

9.82.83.80.82.73.78.71.69.78.32.63.13 

1 660  DATA32 ,32,50,46,32,78,69,85,69,82,3 
2,86,69,82,83,85,67,72,32,63,13,0,13 
1670  DATA13 , 32 ,78 
1680  REM 

1690  REM  ***  BLOCK  11  *** 

1700  REM 

1710  DATA65 ,69,67,72,83,84,69,83,32,70,7 
3,76,69,32,58,0,13,32,32,18,32,83,67 
1 720  DATA82 ,65,84,67,72,45,68,73,83,75,3 

2.69.73.78.76.69.71.69.78.32.146.13 
1730  DATA0, 13, 13,32,18,32,83,73,67,72,69 

,82,32,63,32,45,32,83,80,65,67,69,44 
1740  DATA32, 83, 79, 78, 83, 84, 32, 95, 32, 146, 
13,0,13,13,32,83,67,82,65,84,67,72,73 
1750  DATA78 ,71 ,32,0,32,66,76,79,69,67,75 
,69,32,90,85,32,75,79,80,73,69,82,69 
1760  DATA7S, 32, 146, 13,0,32,66,76,79,69,6 
7,75,69,32,90,85,32,83,67,82,65,84,67 
1770  DATA72, 69, 78, 32, 146,13,0, 13,32,42,4 

2.42.32.83.80.65.67.69.32.42.42.42.13 

1 780  DATA32 ,32,70,85,69,82,32,87,69,73,8 

4,69,82,13,13,32,18,32,66,73,84,84,69 
1 790  DAT A32 ,87,65,69,72,76,69,78,32,83,7 
3,69,32,146,13,0,32,52,46,32,78,79,67 
1 800  DAT A72 ,77,65,76,32,75,79,80,73,69,8 
2,69,78,13,0,36,0,73,0,44,88,44,82,0 
1810  DAT A44 , 88 , 44 , 87 , 0 
READY. 

»Super  Copy«  (Fortsetzung  und  Schluß) 
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Im  Universum  versteckt  sich  die  inter¬ 
planetarische  Spinne  Plexar.  Sie  kön¬ 
nen  die  Katastrophe  abwenden,  wenn 
Sie  das  All  von  dem  Ungeheuer  be¬ 
freien. 


Bevor  Sie  mit  dem  apokalyptischen  Kampf  gegen  die  inter¬ 
planetarische  Spinne  beginnen,  müssen  Sie  zuerst  auftanken. 
Doch  nach  30  Energieeinheiten  beginnt  ein  feindlicher  Hub¬ 
schrauber  auf  Sie  zu  schießen.  Ist  dieses  Hindernis  hinter  Ih¬ 
nen,  geht  es  links  weiter.  Im  oberen  Eck  erscheint  ein  Tunnel, 
den  Sie  durchfliegen.  Dabei  müssen  Sie  eine  Lasersperre 
überwinden  oder  einen  Mann  retten.  Dieser  sollte  bei  der  Ak¬ 
tion  möglichst  weit  links  stehen.  Haben  Sie  diese  Hürde  über¬ 
wunden,  schließt  sich  hinter  Ihnen  eine  Mauer.  Durch  diese 
müssen  Sie  sich  links  unten  durchschießen.  Auf  dem  nächsten 
Bild  gilt  es  eine  Barrikade  zu  durchschießen,  die  aber  mit  Vor¬ 
sicht  zu  genießen  ist.  Die  nachfolgenden  Panzer  können  Sie 
nur  abschießen,  wenn  Sie  beide  zugleich  treffen. 

Dann  kommen  Sie  zu  der  Spinne  Plexar.  Achten  Sie  vor  allem 
auf  die  Lasersperren.  Wenn  Sie  nun  die  Spinne  vernichtet  ha¬ 
ben,  fliegen  Sie  zurück,  aber  achten  Sie  darauf,  daß  Sie  mög¬ 
lichst  hoch  in  den  nächsten  Bildschirm  fliegen. 

Zum  guten  Schluß  können  Sie  auf  dem  Energielager  landen 
und  sich  von  den  Strapazen  erholen  oder  Sie  spielen  weiter. 
Das  hat  aber  nur  Sinn,  wenn  Sie  noch  zwei  Leben  haben. 

(Helmut  Burgemeister/Helmut  Bölcskei/rg) 


Variablenliste  »Apocalypse  Now« 


Die  wichtigsten  Variablen: 

X  und  Y  für  Hubschrauber 

XI  bis  X7  und  Y1  bis  Y7  für  andere  Sprites 
HU  =  feindliche  Hubschrauberzahl 

LD  =  Plexar  abgeschossen? 

A  =  Hubschrauberstellung 
E  =  Schußvariable 


Listing  »Apocalypse  Now«  (Anfang) 


2  REM  +  APOCALYPSE  NOW  + 

3  REM  ++++++++++++++++++######*# 

4  REM  *  BY  HELMUT  BURGEME I  STER  * 

5  REM  *  AND  HELMUT  BOELCSKE I  * 

6  REM  ***#*■*•***•**■***•*****•******* 

7  REM 

B  REM  MASCHINEN  PROGRAMM 

7  REM 

iS  PRINT “ UHBBBBBB I TTE  WARTEN  !" 

2B  P0K.E532S1 ,0 
33  PÖKE532S0 , 3 

43  FQRl=832TG832+33sREADAsPaKEI,AsNEXT 
53  DATA120, 169,51 ,133,1, 169,0,133.95,133 
, 93 ,133,88,1 69 , 238 , 133 , 96 , 169 , 243 
63  DATA133, 89, 169,224, 133.91,32,191, 163, 
169,55, 133,1 ,88,96 
80  SYS832: POKE850 ,160: SYS832 

100  REM  _ 

lu:  REM  _  DATEN  EUER  NEUE  ZEICHEN 
102  REM 

1 30  PQKE56576 , PEEK ( 56576 ) AND252 
135  P0KE53272 , 8 : P0KE64S, 192 
140  PR  I  NT  ■'  TJSaasgjjKBflB I  TTE  WARTEN  !  " 

150  FGRI=280TG559: READA: PGKE57344+I , A: NE 


XT 

2 1 0  DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

223  DATAS ,0,3,37, 235 , 255 , 255 , 255 

230  DAT A3 ,0,0, 3,0, 255 , 255 , 255 

240  DATA 137, 66, 36, 24, 153,36,66, 137 

245  DATA255, 129, 129,255,129,129,255,255 

253  DAT A3, 13,49,193,193,49,13,3 

255  DAT  A3 , 96 , 252 , 255 , 252 ,96,0,0 

260  DAT A60 , 63 , 60 , 24 , 24 ,0,0,3 

265  DATA255 , 126 , 255 , 126 , 255 , 126 , 255 , 126 

273  DAT  A3 ,0,0, 255 , 255 , 255 ,0,0 

275  DATA24 ,63,24, 63 , 88,88, 36 , 66 

280  DATA25 ,61 ,25,62,88,88,36,66 

285  DATAS ,0,60,32, 60 ,32,32, 32 

293  DAT A3 , 3 , 68 , 68 , 68 , 68 , 68 , 1 24 

295  DAT A3 ,0,1 24 , 64 , 124,64,64,124 

303  DAT A3, 3,32,32,32,32,32,60 

305  DATA 126. 255 , 255 ,231, 23 1 , 255 , 255 , 1 26 

313  DAT A0 ,0,0, 0,8, 5, 3, 7 

315  DAT  A3 ,0,0,3, 12, 62 , 1 27 , 255 

320  DATAS, 0,6, 31 , 127,255,255,255 

325  DAT A0, 0,0, 192,231,239,255,255 

330  DAT A3 ,0,56, 252 , 252 , 254 , 255 , 255 

335  DATA255, 127, 127,63,31 , 12,0,0 

340  DAT  A255 , 255 , 254 , 1 52 ,0,0, 0,0 

345  DATA255, 191 ,31 , 15,3, 1 ,0,0 

353  DATA255 , 255 , 255 , 248 , 248 , 224 ,0,0 

355  DATAS, 0,36,24,24,36,0,0 

363  DATA65, 39, 18,207,63, 191 , 127,255 

365  DATA 160,68,88, 225 , 250 , 252 , 254 , 255 
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370  DATA255 , 255 , 255 , 255 . 255 , 255 , 255 , 255 

375  DATA255 , 255 ,243,195,195,192,0,0 

380  DAT A0 ,  8  , 35 , 254 , 35 ,8,0,8 

365  DAT A4 ,4^11,48,46,64,8, 3 

398  DATA8, 3, 196, 127, 196,8,0,8 

395  DATA8, 32, 32,206, 12, 12,2,3 

408  REM  +++++++++++++++++ 

401  REM  +  SPRITES  DATEN  + 

482  REM  +++++++++++++++++ 

538  FGEI=583B4TG50384+62:  RE  ADA:  POKEI  ,A:N 
EXT 

505  FÜRI=50368TG50368+62: RE ADA: POKEI ,A: N 
EXT 

510  FORI=50432TO50432+62: RE ADA: POKEI ,A:N 
EXT 

511  FORI=50496TO58496+62: RE ADA: POKEI ,A: N 
EXT 

512  FORI=50560TO50560+62:READA: POKEI , AsN 
EXT 

513  FORI=50624TO50624-+62:  RE  ADA :  POKEI  ,A:N 
EXT 

514  FÜRI=5068BTQ506e8+62:  RE  ADA:  POKEI  ,A:  N 
EXT 

515  FORI=50752TO50752+62: READA: POKEI ,A: M 
EXT 

517  PRINT"®  S  APOCALYPSE  NOW  " 

518  PRINT"®®  HBY  J0HELMUT  kBURGEME I STERkJ 
AND  HELMUT  BOELCSKE I 

519  DAT A3, 0,0 

528  DATA0, 0,0, 255, 255, 255, 0,48, 0,3, 255, 1 

93,4,32,97,8,32,55,16,42, 153 

525  DATA96 , 34 ,1,1 28 , 79 ,131 , 128,66,6,123, 

138,152,255, 128,96,64,64,128 

533  DAT A32 ,33,0,16,33,8, 143 , 254 ,0,129,2, 

0,127, 255 , 248 ,8, 0,0, 0,0, 8 

540  DATA3, 0,0,3, 0,8,31 ,255,240,8,40,0,3, 
16,0,0,104,8,0,132,0 

545  DATA1 ,2,0,6,249, 128,4,252, 128, 11 ,254 
.64,9, 252 ,64,4,0,128,3,3,0,0, 252 , 0 
558  DATA! ,58,8,2, 1 ,0,4,0,128,28,3,224,8, 
0,0, 0,0,0 

560  DATA0, 8, 8,8, 0,0, 255, 255, 255, 0,12, 8, 1 

31 .255.112.135.4.32 

565  DAT A252 , 4 , 16,153,68,8,128,68,6,193,2 
42,1,96,66, 1,24,65,1,6,1 ,255,1 ,2,2,8 
570  DAT A 1 32 ,4,0, 132,8,8, 127,241,3,64,129 
,31,255,254,8,0,0,0,0,0 

580  DATÄB, 0,240,0, 15, 1 ,0,240,193, 15,111 , 

1 83 , 24S , 240 ,65,3,32,145,4,42,3 

585  DATAB, 34, 134,0,47,8, 16,66, 144,96,82, 

96,128,128,128,128,129,8,143,65,0 

590  DAT A248, 33, 0,64, 46, 8, 32, 242, 248, 31 s 1 

5,0, 129,243,8,143,0,0,112,0,0 

600  DATA 15 ,3,0, 128,243,3, 13 i , 15,0,238,25 

2.248.156.248.15.137.4. 192.192.84.32 
605  DATA97, 68, 16, 16,244,8,9,66,8,6,32,6, 
1,1, 1,3,129,1,0,138,241,0,132,15 

613  DATA16, 1 16,2, 15, 143,4,0,240,248,0, 15 
, 129,8,0,241,0,0,14 

620  DAT  A3 ,3,3, 8, 0,8, 0,3, 3, 0,15, 0,0, 63, 8, 

0 , 243 .8.8,1 92 ,3,0, 20 .0,8, 23 ,8,0, 48 , 0 

625  DAT A3 ,40,0,0,20,8,8,28,0,0,40,0,8,40 

,8,8,23,0,8,95,0,3,170,0,3,255,192 

633  DATA 13,95,112,3, 255 , 192 

640  DAT A3 ,3,0,0,0,0,0,192,0,0, 240 ,0,0,63 

,0,0,15,0,0,3,0,0,20,0,0,20,0,0,40,0 


645  DAT A3 ,40,3,0,20,0,3,23,0,0,40,8,8,40 
,0,8,20,8,3,95,0,0,178,8,3,255,192 
658  DATA13, 95, 112,3,255,192 
668  DATA 126,8, 1 ,71,255,242,36,0,4,16,255 
, 12,25,3,143,38,0,108,2,0,66,69,36,196 
665  DATA69, 153,68, 124, 126,125,68,68,68,6 
e, 90, 63, 68, 129, 68, 67, 3, 196,66,255,68,68 
670  DATA20, 36, 40, 34, 20, 16,65,24,47,255,2 
28,64,8,2,128,0,1 

~7  0  (3  F\EM  ’■  A •  A A A  A  A A  A A  A  A. A A  A  A  A  A 

701  REM  Ä  INET I ALI SIERUNG  VARIABLEN 

^09  P  E  M  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A.  A  A  A  A  A.  A.  A  AA 

997  G03UB62138: PQKE50169 , 22: P0KE5316S , 18 

998  V=5324S : POKEV+2 1,1: POKEV+42 , 1 4 

999  X=250 : Y=94 : GOSUB50000 
1 008  X=250 : Y=94 :  fi=  1 : OT= 1 : V=5324B : P0KE53 1 
68,18:  GQSUB63000 :  0=PEEK.  <  V+3 1 )  :  AB=AC 
1081  POKEV+2 1 , 1 : POKEV+29 , 3 : POKEV+39 , 3 : B= 
1  :PRINT,,L":Q=13:  X2=0:  Y2=90:  B2=4:  C2=3 
1 882  GOSUB68 1 00 : POKEV+2 1 , 1 
1 803  H=32 : EN= 1 0 : PU= . 85 : B9=8 : HU=0 
1 004  POKEV+2 , X2: POKEV+3 , Y2 : HB=4 
1 805  POKEV+2B ,12: POKEV+37 , 2 : P0KEV+3B , 5 
1 006  POKE50 178,23: POKE50 171,24 
1 039  POKES 1+11,65: J  S=PEEK ( V+30 > : 0=PEEK ( V 
+  31) 

1018  REM  HAUPTPROGRAMM 
1311  J  =PEEK ( 56323 ) : JS=REEK  <  V+30 ) 

1020  IF ( JAND4) =0THENX=X-5: A=A- 1 
1030  IF ( JANDS) =0THENX=X+5: A=A+1 
j  1040+  FCJANDl )=BTHENY=Y-5 
1850  IF  < JAND2) =0THENY=Y+5 

1055  I FA  >3THENA=3 

1056  I F A< 1 THENA= 1 
1 859  I FY< Q5THENY=85 
1 868  ONABOSUB2000 ,2018, 2020 
1865  Y=Y+AB 

1 870  POKEV , X : POKEV+ 1 , Y 
1 088  I F ( J  AND 1 6 ) =0THENSOSÜB285S 

1898  0=PEEK C  V+3 1 ) : IFO=1THEN3200 
1 098  I F  X  >25©THENB=B- 1 : X=250 : B I =0 : Hü=0 : B9 
=0: POKEV+2 1 , 1 : IFB< 1THENB=1 

1899  IFX<5THENB=B+ 1 : X=5: BI =8 
1 1 88  ONBBOSUB4500 , 5038 , 5580 , 6000 
1110  P0KE49 1 52+EN+40*3 , H : EN=EN-PU : H=32 


.BTHEN1010 

> 1 880 : GGSUB609SS 


1888  IFEf 
1339  SOS! 

1898  IFEN<=0THENEN=0: AB=4: POKES 1+7, 188: G 

QTO1065 

1908  GOTO 10 10 

1  C^Cf~y  p  £  jvj  >.  A.  A.  A-.  A  .•■*.  .•••.  A  A  A  A.  A 

1998  REM  -'-BENEGUNGSR I CHTUNG  VON  SPRITE"- 

■i  Cp  cp  p  jy4  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A.  A  A.  A.  A.  A.  A.  A  A.  A  A. 

2000  IF  ( JAND4)  =0THENPOKE50 168,21 :  POK.ESI  + 
7 , 255 : RETURN 

288 1  POKE50 168,18: POKES I +7 , 208 

2089  RETURN 

20 1 0  FOKE50 168,19 

2019  RETURN 

2020  I F (JANDS ) =0THENPOKE50 1 68 , 22 : POKES I + 
7, 255: RETURN 

2021  POKE50 168,28: POKES 1+7,280 
2029  RETURN 

2049  REM 

2050  REM  _  SCHUSS  ROUTINE 
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2051  REH 

2059  I F  ( JANB4 )  =0ANDA=  1THENGQSÜB3300 :  RETU 
RN 

2060  IFA=1THENGGSUB3000 
2073  IFA=2THENSOSUB3030 

2079  I F ( J AND8 ) =felANDA=3THENBOSUB3400 : RETU 
RN 

2083  I FA=3THEN6OSÜB306® 

2093  RETURN 

3000  X 1 = I NT ( X / 8—4 ) ; Y 1=1 NT (Y/B-5) 

3005  FORE=X ITQ0STEP— 1 : G0SUB61 400 

3006  PG=PEEK (49152+E+40*Y1 ) : PGKE49152+E+ 
48*Y  1,66:  P0KE49 152+E+40*Y  1  ,  PD 
3S07  IFPEEK ( 49 1 52+E-l+48*Y 1 ) < >32THENS=- 1 
: GOTO3100 
3010  NEXTE: RETURN 
3030  Xl=INT(X/8) : Y1=INT (Y/8— 3) 

3033  FORE=Y 1TQ25STEP1 : G0SUB61488 
3043  PQ=PEEK (49152+X 1+40*E) : P0KE49152+X 1 
+43*E , 42 : P0KE49 152+ X 1 +4ß*E , PD 
3045  IFPEEK (49 152+ XI +40*E+40) <  >32THEN31 1 
0 

3050  NEXTE: RETURN 
3060  X  1  =  I NT (X/8+4) ; Y 1=1 NT (Y/B-5) 

3070  FORE=X 1 T039STEP 1 : G0SUB61 400 
3075  PQ=PEEK (49152+E+48*Y1 ) : P0KE49152+E+ 
40*Y 1 , 68 : PÜKE49 I52+E+40*Y 1 , PD 
3377  I FPEEK ( 49 1 52+E+ 1 +40* Y 1 ) < >32THEMS= 1 : 
BOTD3100 

3080  NEXTE: RETURN 

3097  REM  +++++++++++++++++++++++  r 

3090  REM  +  AUFPRALL  VON  SCHUSS  + 

3099  REM  +++++++++++++++++++++++ 

3 1 30  POKES 1+10,3: BOSUB60700 : I FPEEK (491 52 
+E+S+40*Y 1 ) <  >51 THEN3 i 50 

3 1 02  P OKE 4 9 1 52+E+S+40*Y 1,38: FORT=0TO 1 00 : 
NEXT: P0KE49 1 52+E+S+43*Y 1 , 32: E=8 

3 1 03  SC=SC+6 : GOSUB6 1 230 : RETURN 

3110  POKES 1+10,3: GGSUB60700 : I FPEEK <491 52 
+Xl+40*E+40> <  >51 THEN3 170 

3111  P0KE49 152+Xl+40*E+40 , 38 

3112  FORT— 8T0 110: NEXT : P0KE49 1 52+X 1 +40*E+ 
40,32: E=0:SC=SC+8: GOSUB61200: RETURN 
3 1 53  PO=PEEK <  49 152+E+S+4B* Y 1 ) : P0KE49 1 52+ 
E+S+40»Y1 ,38 

3163  FDRT=3TO100: NEXT: POKE49152+E+S+40*Y 
1 , PO: E=0 
3165  RETURN 

3170  PO=PEEK  ( 49152+  X 1 +40+E+43 )  :.P0KE49152 
+X1+40*E+40,3B 

3180  FORT  =0T Ü 1 80 : NEXT: POKE49152+X1+40*E+ 
43 , PO : E=0 : RETURN 

3197  REM 

3198  REH  KOLLISION  HUBSCHRAUBER 

3199  REM 

3233  GQSUB602B0 ; POKES 1+ 1 8,3: POKEV+2 , 3 : X2 
=0 s  Y2= I NT < RND ( 1 > *53 ) +93 : MB=HB— 1 

320 1  POKEV+3 , Y2 : 0=PEEK ( V+3 1 ) : JS=PEEK ( v+3 
0) 

3202  FüRT=07G 1 33 : P= I NT <  RND ( 1 ) *  1 5 )  : POKEV+ 
39 , P ; NEXT : POKEV+39 , 3 

3233  I FHB<  =0THENPGKEv+2 1,0:  PR I NT  “ mmmm m 
e  AHE  0  V  E  R“ : GGTG8000 
3210  X=2S0: Y =94 : PuKEv , X : POKEv+1 , Y: 0=PEEK 
<  v+3 1 > : GOSUB63303: GOTO 1339 
3330  X 1=1 NT CX/3-4) : Y 1=1 NT (Y/B-5) 


Listing  »Apocalypse  Now«  (Fortsetzung) 


3313 

3315 

3316 

3319 

3320 

3321 
3330 
NS=— 

3340 

34E3 

3410 

3415 

3416 

3419 

3420 

3421 
3433 
NS=  1 
3448 

3997 

3998 

3999 

4008 
KEv+ 
4081 
4802 

4009 

4010 

4011 


(THE 


FORE=X 1TO0STEP— 1 : GOSUB6140S 
Y 1 =Y 1  + .  5 

I F Y 1 >=24THENY 1 =24 : RETURN 
PO=PEEK ( 49 1 52+E+48* I NT <Y1 ) > 

P0KE49 1 52+E+48* I NT ( Y 1 > , 67 
PGKE49 1 52+E+40* I NT ( Y 1 ) , PO 
I  FPEEK  ( 49 1 52+E—  1  +43*  I  NT  <  Yl))  <  >: 

1 : GOTO3108 
NEXTE: RETURN 

X 1  =  I NT ( X/8+4 ) : Y 1  =  I NT <  Y/8- 5 ) 

FORE=X 1 T039STEP 1 : G0SÜB6 1 400 
Y 1=Y 1 + . 5 

I FY 1 >=24THENY 1 =24 : RETURN 
PO=PEEK  ( 49 1 52+E+40-*  I  NT  (  Y 1  >  ) 

P OKE 4 9 1 52+E+40* I NT ( Y 1 ) , 69 
P0KE49 1 52+E+40* I NT  < Y 1 )  , PO 
I FPEEK ( 49 1 52+E+ 1+40* I NT <  Yl>) < >32THE 
: GOTO3100 
NEXTE: RETURN 
REM 

REM  _  BILD  TANKEN  AUFBAUEN 
REH 

GOSUB60500: X2=0:Y2=90: POKEV+2 , X2: PC 
3 ,  Y2 

X=250: Y=94:  BI  =  1 

TR=49 1 52 : C=40 : GOSUB4530 

REM  * "  *****  ■ A  ■*  *  •**  •  •■*  ■  *■’■* A  A  -***- A  -a-  ■■■  - .•••. -  a 

REM  BILDSCHIRMABFRAGE  TANKEN 
REH 


•••-  A  A  A  A  A  A  7 


AAAAA.- 


4580  IFBI=0THEN4800 

1  I FB9=0THEN :  I FEN >30ANDHU< 5THENB9= 1 : P 
OKE v +21 ,3: GOSUB61570: X3=20 
4502  0NB9G0SUB6 1 308 
4583  I FY< = 1 75ANDKL=0THENRETURN 
4534  IFX >1 40ANDXC 1 75 ANDKL=0 T HENKL = 1 : G08U 
B451 1: IFLD=1THENGOTO62000 

4585  PU= .  0-5 :  I F Y  >2 1 4 ANDKL=  1  THENH=  1 60 :  07=1 
: AB=AC : PU=- 1 : GOSUB60800 

4586  I FY  >2 1 8ANBKL= 1 THENY=Y- AB- 1 

4587  I FY< = 1 70ANDKL= 1 THENKL=0 : GOSUB4530 : R 
ETURN 

4588  I FY >2 1 4ANBKL= 1 ANDEN >=35THENEN=35 : H= 
32: POKES 1+18,8 

4539  IFY<  =  2 1 4ANDKL= 1 THENPOKES 1  +  18,8 
4513  RETURN 

4511  FORT= 1 3T023 

4512  F0RI=15T024 
45 1 5  POKETR+ 1 ■ +40*T , 32 

4528  NEXT: NEXT 

4522  PRINT"®  — - 

i=r? 

4523  PRINT III# 

4  #  #  #  T  $  T  T-  T  T  $  7-  T-gSI 

4529  RETURN 
4538  PR I NT  ” 


4531  PRINT” 

4532  PRINT” 

4533  PRINT” 

ÄisT5 

TTI-M  . 

4534  PRINT” 
##H7 

4536  PRINT" 

###a? 

4537  PRINT” 
####§? 


[ac X7.72/.7.7.y.v:%y. 

iaj>###®/012ä###? 

m>mw  " ' . 'ss 


®>®###es 


■® 
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4538  . . SS# 

5545  PRINT": ;  : ; : ; 9;  ; 9; 9:  9;  :  9: ;9 

it 

4560  KL=0: RETURN 

4997  REM 

4998  REM  _  BILD  TUNNEL  AUFBAUEN 

4999  pt7jvj 

5000  IFBI=0THENH=32: GÜTO5010 

5547  PR I NT " + )  <+" 

5550  F0RT=8T02: PRINT"+>  ( 

+L333333S" :NEXT 

357786876787" 

5005  GOTO5300 

50 1 0  GGSUB60500 :  T I  $  =  "  000000  " 

5563  FORT =8T03 : PR I NT "  fe.  3g  + 

(+6^3333333335+)  "  :  NEXT 

5011  X=250 : Y =94: BI  =  1 : PX=45: PY=46 

5319  pr  intm  mmm *■ 

5565  FQRT=0TO5:PRINT,!g+)  g+ 

k333  3333335+) " : NEXT 

5320  PRINT”  >667765675656775676566787 

5578  FORT=0TO2: PRINT"! 

8776767657 

5030  FORT =3703 : PR I NT "  < ) ” : NEXT 

( +k333333333B+) " : NEXT 

5575  PR  I  NT 

5335  PRINT"  O  678687688767876 

8676787867 

5697  REM  ++++++++++++++++++++++++++++ 

5040  FORT =0TG2 : FR I NT " 2  O 

5698  REM  +  BILDSCHIRMABFRAGE  PANZER  + 

B++" : NEXT 

5045  PR INT"  13  (67367887876767676668787 

5699  REM  ++++++++++++++++++++++++++++ 

5703  I F X  > 1 68THENRETURN 

5++ 

5710  I FX5> 138THENB5=3 : P0KE58173,24 

5350  PR I NT " iJa  <9:  ffl)  )>))))))))))))))  09;  9: 

5715  I F X5< 30THENE5=— 2 : POKE50170 , 23 

|™++  " 

5728  I FX6 > 1 38THENB6=2 : POKE50 1 7 i , 24 

5085  PR  INT"  13  (  Sf333  3 

5738  I F X6< 30THENB6=— 3 : POKE50171 ,23 

S++ 

5740  X5=X5— B5: X6=X6— B6 

5393  PRINT"a  (  5*3  3 

5750  POKEV+4 , X5: POKEV+6 , X6 

S++ 

5755  JS=PEEKCV+30) : IFJ3=50RJS=90RJS=13TH 

5095  PR  INT  "lg  (  313 

EN3200 

S++ 

5765  0NG9S0SUB5828 , 5908 

5096  PR  I  NT  "  1Ü  (  133333  13 

5778  RETURN 

*++ 

5808  X7=INT ( X5/8- 1 > : Y7=21 

5103  PR  INT  "iS  788^3333333388 878737 878787 

Q 

5818  PETURN 

5311  X8=INT (X6/8-1) : Y8=21 

5110  PR  INT  "131  9^33333333; : 9:9: ; 9:9: ; 9: 

5815  RETURN 

£++ 

5828  Y7=Y7— 1 

5120  PRINT"  G 

5835  PO=PEEK <49152+X7+4E*Y7-40) 

m++ 

5840  P0KE49152+X7+48+Y7 ,90 

5125  PRINT"  £3  /  \ 

5858  I FPQ< >32THENP0KE49 152+X7+40*Y7-40 , P 

g++ 

0: P0KE49 152+X7+40+Y7 ,32: G9=2: GDSUB5S 1 1 

5133  PRINT"  G  /  \ 

5868  POKE49152+X7+40*Y7,32 

g++ 

5 1 35  PR  I NT  "  H£  $$$$$$$$$$$  G#H*  $  $ T T T (24 g $ 4 4- 4 

5900  YS=Y8— 1  Listing  ,,AP°ca|yPse  Nowc<  (Fortsetzung) 

5920  P0=PEEK (49152+X8+40*YS-40) 

r-.j—  iuj  -  -  j  j  j  j  j  ,  ,  •  •  -  ,  •  l  j  »  j  j  •  •  j  «  -  -  • 

5298  REM  +  BILDSCHIRM ABFRAGE  TUNNEL  + 

5948  IFPQ< >32THENPOKE49152+XS+40*Y8-40 ,P 

5299  REM  ++++++++++++++++++++++++++++ 

□ : PC KE 49 1 52+X8+40+Y8 , 32 : G9= 1 : G0SUB5S88 

5300  POKETR+Q+C*  1 7 ,  F’X 

5320  POKETR+Q+C* 1 7, PY: IFY< 170THENRETURN 
534 0  GE= I  NT ( RND ( 1 ) * 1 5 ) : I FGE > 1 8THENG0SUB6 

5958  P0KE49 152+X.8+40+Y8 ,32 

5968  RETURN 

0088 

5998  REM  BILDSCHIRM  SPINNE  AUFBAUEN  A 

5345  IFX< 1 48ANDX  > 1 20 ANDY >17 4ANDY< 178THEN 

2  p  p  D  P  E  M  A  A  A  A  A  A  A  .•■■■  A  .-\  A  A  A 

PX=32 : PY— 32 : G0SUB6 1100: B05UB6 1 200 

535  0  IFT I  * > " 083005 " THENGOSUB68070 

6880  IFBI=0THENH=32: GOTO 6828 

6010  GGTÜ6300 

5407  IFY< =21 4THENP0KES 1+18,0 

6820  GÜSUB60508: 71*=" 088888 ” : V=53248: POK 

5418  RETURN 

E58172 , 25: POKEV+8 , 50: POKEV+9 , 157 

549  7  REM  A "* *’*'* A A A •’*** A -•**• A A -■*- •••■  a 

6833  X=258 : Y= 1 1 8 : B I =1 : POKEV+23 ,16: P0KEV+ 

5498  REM  A  BILDSCHIRM  PANZER  AüFBAUEN  A 

29,19: POKEV+21 , 17 

C,>|QD  opr  [vl  A  A  A  A  A  A  A  ,A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A. 

6848  POKEV , X : P0KEV+ 1 , Y : G=PEEK ( V+3 1 ) 

5500  IFBI=8THENH=32: GOTO5510 

6050  FRENT"HHHKR" 

5505  G0T057S8 

6868  PRINT”  '^6787878678687868 

5510  GOSUB68500 

76078677867 

5520  X=250 : Y=94 : B 1= 1 : B5=-2: POKEV+5 , 223 : P 

6870  PRINT"  1S+; 9: ; 9: 9; 9; 9: 9; + 

OKEV+7 , 223 : X5=58: X6=120: POKEV+21 , 13 

9:  ;  :  ;*;9:  ;9 

552 1  POKEV+4 , X5 : POKEV+6 , X6 : G0SUB5838 

6888  FORT=0TO1 SPRINT"  S+> 

5530  PR I NT " KHKKB”  : B6=2 : ¥7=20 s G9=l 

(+" : NEXT 

5540  PR I NT " 76737878787878686888786878687 

6098  FORT=0T 02: PRINT"  +> 

8687868786" 

" : NEXT 
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6 100  PRINT"  S76768787868-*- 


6118  PRINT,,gC+++++ 
)  ■•'-ACHTUNG-- 

+ 

6120 

PRINT" C++ 

++> 

(  +  ) 

6138 

PRINT" <++ 

++ 

+  ) 

6148 
+  5 

PRINT" <+ 

fe.333g 

6150 
+  ) 

PRINT" <+ 

k333B 

6163 

PRINT" C++ 

** 

+  ) 

6170 

PRINT" C++ 

++) 

C  +  ) 

6188 

) 

6198 
+  > 

PRINT" (++++++ 

•+++++7 

IS+ 

PRINT"ä  : : ; 9: 

; :9;9:+ 

.  s 

6233 

) 

6218 

11+  ) 

PRINT” 

+  > 

m +  c  + 

PRINT" 

E+> 

m+  (el__  . 

622S 

11+) 

PRINT" 

E-F) 

il+C  iife/012 

6238 

6297  REN 

6298  REM  +  BI LOSCH IRMABFRABE  SPINNE  + 

6308  I  FT  I  '$ >  "  80B037  "  THEMSOSUE6408 

6305  IFTI*-> " 83881 8 !!  THENSGSUB6428 

6313  Pü=. 35; I FV >236ANBX > i SSANDXC 1 9 8 TH ENG 

□SÜB6440 

6323  I  FY<  =206THENPGKES  1482 
6325  Ü=PEEK ( 9+3 1 ) s I FD= 1 6THENGGBUB6553 
6399  RETURN 
6488  PR  I NT " 

□" 

6435  0=PEEK ( 9+3 1 ) : I FO= 1 THEN3200 
6410  PR I NT" 

6415  RETURN 
6423  PR  I  NT  " 

- □  " 


6425  Q=PEEK (9+3 1 ) ; IFG=1THEN3200 
6430  PR  I  NT “ 

J! 

6435  T I  $=  " 308003 11 ;  RETURN 

6440  IFHA=1THENRETURN 

6441  PU=. 05: OT=l : H=160: PU=-1 : GOSUB60Q00: 

I FEN>35THENEN=35: HA=1 : H=32: Pü=. 05: 0T=1 
6450  IFY>209THENY=Y— AB- 1 

6468  RETURN 

6558  F0RT=8T01B8: POKE53280,T: PGKE53281 ,T 
: G0SUB687BB: WEXT : POKE53280 , 8 
6552  PÜKE5328 1,0: LD= 1 : SC=SC+ 1 338 : B0SUB6 1 
208 

6563  PQKE9+21 , 1 : RETURN 

6697  REM  ++++++++++++++++++ 

6698  REM  +  PUNKTE  WERTUNG  + 

6699  REM  ++++++++++++++++++ 

8003  FORT =0TO  1 533 :  NEXT :  PR  I  NT  "  immmMMßM 
NOCH  EINMAL  CJj  " 

3002  PR  INT"  " 

:  SC 

8333  I ESC  > A S T H E N A S = S C 

8004  PRINT”^S^^^*Ülll®^üeiHIGHSCOR 
E  iS";  AS 

83 1 0  PO KE 1 98 . 8 ; WA I T 1 98 , 1 s BETA* : I F AT= " J " T 


HEN9000 

88 1 5  PQKE648 , 4 : SYS65 126 

0823  PRINTE  DANKE!  !  !  GQOD  BYE  1  !  !?!!'!  ! 
" :  END 

9333  BI =3: B9=0: EN=0: HU=8: PU=0: AB=8: KL=0: 
H=0 : PX=0 : PY=0 : GE=8 : PO=0 ; S9=8 
9013  B=0:HA=0: LD=0: SC=3: AC=3: PUKEV+23,0: 
PGKEv+29 , 3 : G0TG99B 

1 0303  REM  — — — 

REM  ANFANGSSPRITE  BEWEGEN 

p  CT  |yj  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 

POKEV , X ; PGKEV+ 1 , Y 
X 1  =  I NT  C X / 8— 4 ) : Yi  =  INT (Y/8-5) 

FGRE=X 1 TG0STEP— 1 

PDKE49 1 52+E+40+Y 1 , 66 ; PGKE491 52+E+4 


Listing 

»Apocalypse  Now« 
(Fortsetzung) 


13001 
10382 
58888 
58010 
50320 
50833 
0*Y1 ,32 

58340  I FPEEK  C  49 1 52+E- 1 +40*Y 1 ) < >327HENF0K 
E49 1 52+E- 1 +40+ Y 1 . 38 ; GOTG50070 
50050  NEXTE: RETURN 

50370  FORT=0TG 100: NEXT: PQKE491 52+E- 1+40* 
Y 1 ,32: X=X— 3: E=3: GGTO50000 

68830  PGKETR+Q+C* 17,32: Q=0- 1 NT ( RNB < 1 ) *3 5 
: G-Q+ INT (RND C 1 >  *3) 

680 1 8  I FQ< 1 1 THENQ= 1 1 
6S820  I FQ > 1 4THENQ= 1 4 
63360  RETURN 
60370  OT=OT *— i:TI$=" 080803 " 

68375  pr  i  nt  » mmmmmmmmmMmmmmi” 

63383  I FGT =—  1  THENFQRT=3TQ2 :  PR  I NT  " 

" : NEXT: RETURN 

6-_,  r  35  pr  int  » amaaaaBaamaä  /\  n 

68386  PR  I NT  "  /  \  “ 

63387  PR  I NT  ” »»»»»»«/  \B" 

63893  RETURN 

68399  REM  GERAEU3CHE 

68108  S I =54272 : POKESI+7 , 288 : PGKESI +8, 8 : P 
OKES 1+9,8: POKES 1+18,3: POKES 1+11,3 
68110  POKES 1+12,8: POKES 1+13,15*16+15: PGK 
ES 1+21 ,0: POKES 1+22, 150; POKES 1+23, 243 
68 1 20  POKES I +24 , 3 1 : POKES I + 1 1 , 65 
60130  RETURN 
63280  POKES 1+11,0 

6028 1  POKES 1+1,5: POKES 1+4,8: POKES 1+5,11: 

POKES 1+6 ,0 

68282  POKES 1+4, 131 

602 IS  RETURN 

68388  I FEN< = 1 THENEN= 15:1 FB > 1 THENEN=35 
63381  PR  INT  “UM  m 

ü" 

EBEN  iS" HE 

63383  FRINT"tt«BMMjgNERGYE:i"  :  FORT=0TQEN:  PO 
KE49 152+7+40*3, 160: NEXT 
60384  FRINT»»MflHMMMH 

60318  X=258: Y=94 : AB=AC : H=32:  BOSUB61203 
60315  IFB=4THENY=110 
68320  RETURN 

68500  FR INT »LMM»  g 

Q" 

6350 1  PRINT  "  SM^Sa^ENERG  Yy" 

60502  FORT =0TOEN : PGKE49 1 52+T +40*3 , 160: NE 
XT : GOSUB61280 
63550  RETURN 

63730  3 1 =54272 : POKES 1+ 4 , 3 : POKES I  + 1 , 13 : PO 
KESI+5 ,12: POKES 1+6 ,0: POKES 1+4 ,131 
63710  RETURN 
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63720  51=54272:  POKES 1+4 ,  0: POKESI  +  1 ,20:  F'0 
KES 1+5,12: POKES 1+6,3: POKES 1+4,131 
60730  RETURN 

63330  5 I =54272 : POKES 1+13,0: POKES I + 1 9 , 0 : P 
OKESI+20, 15*16 

633 1 0  POKES 1+14, 230 : POKES 1+15,39: POKES 1 + 

18.17 

63323  RETURN 

60930  S 1=54272: POKES 1+13,0: POKES 1+19,3; P 
QKEB I +20 ,15*1 6+2 

609 1 0  POKES 1  +  14, 230 : POKES 1+15,59:  POKES I  + 

13.17 

60923  RETURN 

6 1 003  OT=DT*- 1 :  I FGT =-  1 THENPR I NT !! SSüÜÜÜlsBi 
" : RETURN 

61031  PR  INT"  Sk  WMWWWiWLOW  ON  ÜFUELC 

U 

61002  RETURN 
6 1 1 30  SC=SC+ 1 00 :  PR  I  NT  " 

+Bii+isii+iii+yi! 

61120  RETURN 

6 1 203  pr  i  nt  ■* 

SCORE  " ; SC ; "HO” 

61213  RETURN 

61297  REM  +++++++++++++++++++++++++++++ 
61293  REM  +  FEINDHUBSCHRAUBER  BENEGEN  + 

61300  IFX >X2THENB2=+5 : M4=22 
61310  IFX<X2THENB2=-5: M4=21 
61320  IFY>Y2THENC2=+3 
6 1 330  I FY< Y  2THENC  2 = — 3 
61335  X2=X2+B2: Y2=Y2+C2 

6 1 340  P0KE9+2 , X2: POKEV+3 , Y2 

6 1 34 1  0=PEEK ( V+3 i ) 

61342  JS=PEEK(V+33) 

61350  IFJS=3THEN3230 

61351  I F0=2THEN6 1 500 

6 1 352  JS=PEEK ( 9+30 ) 

6 1 353  I FHU >3THENG0SUB6 1 530 

61354  0=PEEK (V+31 ) 

6 1 355  POKE50 1 69 , M4 
61360  RETURN 

61400  1 FB=3THEN6 1 433 

61431  I FB=4THEN6 1 470 

61432  IFHUX4THENRETURN 

61410  Ö=PEEK « v+3 1 ) : I FQ=2THEN6 1 500 
61420  RETURN 

6 1 430  C=P£EK ( v+3 1 ) : I FQ= 1 2THENSQSUB6 1 453 : 
PQKE9+21 , 1 : SC=SC+200: 60SUB6123S: G9=S 
61443  RETURN 

61453  GDSUB60720: FORT=0TO100: P0KEV+3B,T: 
NEXT: RETURN 

6 1 470  D=PEEK ( 9+3 1 )  :  I FO= 1 6THEN : G0SUB6558 
61480  RETURN 

6 1 500  HU=HU+ 1 : SC=SC+ 1 02 : G0SUB6 1203 

61501  GOSUB6S70S 

61502  FÖRT=0TÖ100: P0KE9+43 , T : NEXT : X2=0:  P 
QKE9+2 , X2: Y2= I NT  C RND ( 1 ) *50 ) +90 

61503  PGKE9+3 , Y2 

6 1 504  I FHU > 4 T H E N P 0 K E 9 + 2 1,1; E9=0 
61510  E=8: RETURN 

61533  X3—X3+ 1 

6 1535  I F  X 3 > X /8THENG0SUB6 1 570 

6 1 536  I F  X 3  > 3 9 T HENG G 3 UB 6 1 570 
61543  P0KE49 152+X3+43* INT ( Y3) ,68 

61545  0=PEEK (9+31 ) : I FO= 1THENP0KE49 152+X3 


+43*1 NT ( Y3 ) ,32: GOTO3230 
6 1 553  P0KE49 1 52+X3+40* I NT  C Y3 ) , 32 
61560  RETURN 

61573  X3=INT < X2/S+4) : Y3=INT CY2/8-5) 

61580  RETURN 

61997  REM 

61998  REM  _  MUSIK 

61999  REM 

62000  FOR I =542727054296 : PQKE 1,0: NEXT : POK 
E54296 ,15: P0KE54275 , 3 

62113  H 1 =54272 : H2=H 1 + 1 : AD=54277 : SR=AD+ 1 : 
DR=AD- 1 :  Uil  =64 :  W2=32 

62 1 20  POKEAD , 72 : POKESR ,122: PQKEAD+7 , 43 ; P 
OKESR+7 ,187: G0T06225B 

62130  DIMF$ (18) ,FL<18) , FH ( 18) : FORI=0TOI8 
62143  REA0F4-  <  I  >  ,F;  FH  (  I )  =INT  (F/256)  :  FL  <  I  > 
=F— FH ( I >  *256: NEXT 

62 150  DI  MN  1  -4(200)  ,  D 1  <  233  )  ,  N24  C  233 )  ,D2<  23 
0) : 1=3 

62 1 63  READN 14  ( I )  ,  Dl  ( I )  :  I  FD  KI)  >0THEN  1  =  1  + 
1 : G0T062 1 60 
62170  1=3 

62 1 80  READN 24  CI), D2 C I ) : I FD2 ( I ) >0THEN 1  =  1  + 
1 ; GOTO62180 

62230  DIML1 (200) ,H1 (200) ,L2(233) ,H2<200> 

:  1=0 


62213  FORD =370 iS 

62223  I FF 4 ( J ) =N 1 4 < I ) THENL 1(1) =FL ( J )  ;  H K I 
5  =FH ( J ) 

62233  I FF4 < J ) =N24 ( 1 5  THENL2 ( I ) =FL C J  > : H2 < I 


)=FK  ) 


62243  NEXT : 1=1+1 : IFN14 ( I ) < > ” ” THEN622 1 0 
62245  RETURN 


6225S  SP=9 AL  C " 2 " ) 

62260  I FSP< 1 DR BP >4THEN62250 


62270  S 1 =8 ; 82=3 : C 1 =3 : C2=S : PGKEH 1 , L 1 ( S 1 ) : 
P0KEH2 ,H1  CSD 

62233  PGKEH 1 +7 , L2 ( 32 ) s PQKEH2+7 , H2 < 32)  : PO 

KEDR , W 1 OR 1 ; PGKEDR+7 , W20R 1 

62293  C 1=C 1 + 1 : I FC i > ( D 1 ( 3 i ) *SP / 2 ) THENPOKE 


BR,  Ul 

6230S  I FC 1 < ( D 1 ( S 1 ) *5F ) THEN62320 

623 10  C 1 =0 : S 1 =S 1 + 1 s PO KE DR , W 1 OR 1 s PGKEH 1 , L 

ICSI): P0KEH2 , H 1 C  S1 ) 

62320  C2=C2+ 1 : IFC2 > C D2 ( S2 ) *SP / 2 ) THENPOKE 
DR+7 , W2 

62333  I FC2< ( D2 ( S2 ) *SP ) THEN6235S 

62343  C2=0 : S2=S2+ 1 : POKEDR+7 , W20R1 : PGKEH 1 

+7 , L2 ( S2 ) : P0KEH2+7  * H2  < 82  > 

62353  I FD  1  (SD  >BTHEN62280 

62363  P0KE9+2 1,0: GOTOB000 

62370  DAT AD 3 , 2408 , E3 , 2733 , F#3 , 3834 , G3 , 32 

1 5 

62383  DAT AAS , 3688 , H3 , 4850 , C#4 , 4547 , D4 , 48 
17 


6-2393  DATAE4 , 5407  ,  F#4 , 6369  ,  G4 , 6403  ,  A4 , 72 
17 

62403  DATAH4 ,8181 , C#5 , 9094 ,D5 , 9634 , E5 , 10 
814 

62418  DATAFtS, 12139,85, 12868, A5, 14435 
62423  REM  1. STIMME 

62430  DATAD5 , 3 , D5 , 1 , D5 , 1 , E5 , 1 , D5 , i , C#5 , 1 
, H4 , 4 , H4 , 4 , C#5 , 1 , C#5 , 1 

62448  DATAD5 , 1 , E5 , 3 , D5 , 1 . E5 , 1 , F45 , 2 ,F#5 , 
2 , E5 , 1 , A4 , 3 
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6245-3  DATAD5 , 3 , D5 , 1 , D5 , 1 , E5 , 1 , D5 , 1 ,  C#5 , 1 
, H4 , 4 , H4  t 4 , C#5 , i , C#5 , i 


62460  DATAD5 , i , E5 , 3 , D5 , 1 , E5 . 1 , F#5 , 2 , F#5 , 
2,E5, i 5 A4, 3 

62473  DAT AF#5 , 2 , A3 , 2 , G5 , 2 , F#5 , I , D5 , 1 , E5 , 
1 ,F#5.2,E5,5 

62430  DAT AF45 , 3 , E5 , 1 , D5 , 2 , D5 , 1 , H4 „ 1 , E5 , 1 
,F#5,2,E5,3,D5, 1,E5,1 

62493  DAT AF#5 , 2, A5 ,2,G5 ,2 , F#5 , 1 . D5 , 1 , E5 , 
1 ,C#5, I ,H4, 1 , A4,5 

6250S  DAT AD5 „ 3 , C#5 , ! , H4 , 1 , C#5 , 1 , D5 , 2 , E5 , 
13 

625 IS  DATAF45 , 2 , E5 , 6 , F#5 , 2 , E5 , 2 , D5 , 1 , E5 , 
i ,F#5, 2,A5,2,G5,2,F#5, 1 , D5 , 3, F#5 , 2 , E5 , 6 
62520  D ATAF#5 , 2 , E5 , 6 , F#5 , 2 , E5  ,  2 , D5 , 1 , E5 , 

1 , F#5,2,A5,2,G5,2,F#5, 1 ,D5, i 

6253S  DAT AE5 , 1 , C#5 , 1 , H4 , 1 , A4  *  3 , H4 , 1 , C#5  , 
1 

62540  DATAD5 , 3 , D5 , 1 , D5 , 1 , E5 , i , D5 , i . C#5 , 1 
, H4 . 4 , H4  f  4 , C45 , i , C45 , i 

62550  DATAD5 , 1 , E5 , 3 , D5 , 1 , E5 , 1 , F#5 , 2 , F#5 , 

2, E5, 1 ,A4,3 

62563  DATAD5 , 3, D5 , i , D5 , 1 , E5 , 1 , D5 , 1 , C#5 , 1 
, H4 , 4 , H4 , 4 , C#5 , 1 . C#5 , 1 

62573  DATAD5 , 1 , E5 , 3 , D5 , 1 , E5 , 1 , F#5 , 2 , F#5 , 
2 , E5 . 1 , D5 , 7 
62533  DATA,-! 

6259S  REM  2. STIMME 

62600  DATAD3 , 4 , D3 , 4 , G3 , 4 , H3 , 2 , D3 , 2 , A3 , 4 , 
A3 ,  4  , D3 ,  4 , A3 , 2 , E4 , 1 , A3 , i 

626 i 3  DAT AD3 ,4,03,4,63,4, H3 , 2 , D3 , 2, A3 , 4, 
A3 , 4 , D3 , 4 , A3 , 2 , E4 , 1 , A3 ,  1 

62623  DAT  AD 3 , 4 , D3 , 4 , A3 , 4 , A3 , 4 , H3 , 4 , G3 , 4 , 
A3, 4, A3, 4 

62633  DAT  AD 3 , 4 , D3 , 4 , A3 , 4 , A3 , 4 , H3 , 4 , G3 , 4 , 
A3, 4, A3, 3 

62643  DAT AA3 , 1 , A3 , 7 , A3 , 1 , A3 , 8 , D3 , 4 , D3 , 4 , 
A3 ,4, A3, 3 

62650  DAT AA3 , 1 , A3 , 7 , A3 , 1 , A3 , S , D3 , 4 , D3 , 4 , 
A3, 4, A3, 4 

-62660  DATAD3 , 4  ,  D3 , 4  ,  G3 , 4  ,  H3 , 2  ,  D3 , 2  ,  A3 , 4  , 
A3 , 4 , D3 , 4 , A3 , 2 , E4 , 1 , A3 , 1 

62670  DATAD3 , 4 , D3 , 4 , G3 , 4 , H3 , 2 , D3 , 2 , A3 , 4 , 
A3 , 4 , D3 , 4 , D3 , 8 
626SS  DATA,-! 

62997  REM  +++++++++++++++ 

62998  REM  +  GRAVITATION  + 

62999  REM  +++++++++++++++ 

63000  PR I NTCHR* (142): POKEV+2 1 , 0 

6303 1  pr i mt *■  itat 

ION  L  i  -  3  1” 

630 1 0  POKE  198,0:  WA  I T 1 98 , 1 :  GETAT :  I FAT-=  "  1 i! 
THENAC=. 1 

63020  I F AT= "  2  " THEM AC= . 5 

63033  I  FAT—  ” 3 " THENAC= 1 

63S4S  I F  AT<  11 1  ”  GRAT  >  "  3  "  THEN630 1 0 

63050  RETURN 

READY. 
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Epedemic 

Man  schreibt  das  Jahr  1989.  Ein  Me¬ 
teoritenschwarm  droht  mit  der  Erde  zu 
kollidieren  und  eine  weltweite  Kata¬ 
strophe  auszulösen.  Auf  den  Meteori¬ 
ten  befinden  sich  Viren,  die  eine  tödli¬ 
che  Seuche  verursachen.  Es  liegt  an 
Ihnen,  das  Spiel  mit  möglichst  wenig 
Verlusten  an  Menschenleben  und  ei¬ 
ner  unverseuchten  Erde  zu  beenden. 

Nach  dem  Laden  und  Starten  des  Programms  erscheint  zu¬ 
nächst  die  Frage,  wieviele  Verluste  Sie  sich  zugestehen.  Diese 
Zahl  darf  maximal  vierstellig  eingegeben  werden.  Danach  er¬ 
scheint  die  erste  Bildschirmanzeige  mit  der  Angabe  des  Tages 
(jede  Spielrunde  entspricht  einem  Spieltag) ,  der  Anzahl  der  an¬ 
fliegenden  Meteoriten  und  deren  augenblickliche  Entfernung 
von  der  Erde.  Außerdem  wird  die  Gesamtbevölkerung  sowie 
die  Verlustquote  angezeigt. 

Durch  Betätigen  der  Funktionstaste  Fl  wechseln  wir  ins 
zweite  Bild.  Hier  erhält  man  einen  Überblick  über  den  Stand 
der  Dinge  in  den  acht  Regionen  des  Aktionsfeldes  (Tabelle  1). 
Angezeigt  wird  für  jede  Region  die  Bevölkerungszahl  sowie  et¬ 
waig-  Verluste. 

Durch  nochmaliges  Drücken  von  Fl  gelangt  man  nun  end¬ 
lich  ins  Aktionsbild.  Hier  gibt  es  vier  Aktionsmöglichkeiten,  von 
denen  jedoch  nur  eine  pro  Spieltag  erlaubt  ist. 

Haben  Sie  sich  für  die  medizinische  Versorgung  einer  Re¬ 
gion  entschieden  und  den  entsprechenden  Menüpunkt  aus¬ 
gewählt,  dann  erscheint  auf  dem  Bildschirm  eine  Übersicht 
über  die  verseuchten  Regionen  mit  Schlüsselnummer  und  Le¬ 
vel.  Der  Level  ist  die  prozentuale  Verlustquote  der  Bevölke¬ 
rung.  Dazu  wird  der  Medikamentenvorrat  angezeigt,  und  es  er¬ 
scheint  die  Frage  nach  der  Region.  Geben  Sie  an  dieser  Stelle 
die  Schlüsselziffer  der  gewählten  Region  ein. 

Es  erscheint  eine  Angabe  über  die  benötigte  Menge  an  Me¬ 
dikamenten  für  die  Versorgung  dieser  Region.  Diese  Menge 
wird  von  dem  Gesamtvorrat  an  Medikamenten  abgezogen  und 
Sie  kehren  automatisch  ins  Hauptmenü  zurück. 

Sie  können  versuchen,  einige  der  anfliegenden  Meteore 
präventiv  mit  Raketen  abzuschießen.  Haben  Sie  sich  hierfür 
entschieden,  dann  werden  zunächst  alle  in  Frage  kommenden 
Meteore  aufgelistet. 

Achtung  !  Der  Wirkungsradius  der  Raketen  beträgt  zwi¬ 
schen  15000  und  50000  Kilometer.  Meteore  außerhalb  die¬ 
ses  Entfernungsbereiches  können  nicht  mit  Raketen  be¬ 
kämpft  werden. 

Sie  brauchen  sich  jetzt  nur  zu  entscheiden,  welchen  Meteor 
Sie  angreifen  wollen.  Der  Raketenstart  erfolgt  vollautomatisch; 
allerdings  trifft  nicht  jede  Rakete  ihr  Ziel. 

Falls  eine  der  Regionen  so  hochgradig  verseucht  ist,  daß 
selbst  massiver  Medikamenteneinsatz  keine  Aussicht  auf  Er¬ 
folg  mehr  verspricht,  bleibt  als  letzte  Lösung  nur  noch  die  nu¬ 
kleare  Vernichtung  der  gesamten  Region,  um  ein  Übergreifen 
der  Seuche  auf  andere  Regionen  zu  verhindern.  Wenn  Sie 
sich  dafür  entschieden  haben,  erhalten  Sie  zunächst  eine 
Übersicht  über  alle  verseuchten  Regionen,  deren  Bevölke¬ 
rungszahl  schon  auf  weniger  als  die  Hälfte  der  ursprünglichen 
Anzahl  gesunken  ist. 
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Geben  Sie  jetzt  die  Schlüsselzahl  der  entsprechenden  Re¬ 
gion  ein.  Wenn  Sie  es  sich  in  der  Zwischenzeit  doch  anders 
überlegt  haben,  tippen  Sie  an  dieser  Stelle  nur  eine  Null  ein. 

Die  Produktion  von  Medikamenten  ist  die  letzte  der  vier  Ak¬ 
tionsmöglichkeiten.  Auf  dem  Bildschirm  erscheint  eine  Aufli¬ 
stung  der  unverseuchten  Regionen  und  die  dort  jeweils  produ¬ 
zierte  Menge  an  Medikamenten.  Diese  Menge  richtet  sich 
nach  der  jeweiligen  Bevölkerungsanzahl.  Die  Region  mit  der 
größten  Bevölkerung  hat  auch  den  größten  Ausstoß  an  Medi¬ 
kamenten.  Beachten  Sie,  daß  nur  in  völlig  unverseuchten  Re¬ 
gionen  produziert  wird. 

Als  reines  Informationsbild  gibt  es  die  Weltgrafik.  Auf  dem 
Bildschirm  wird  eine  Karte  dargestellt,  in  die  der  Grad  der  Ver¬ 
seuchung  in  den  einzelnen  Regionen  eingetragen  ist.  Die  Ver¬ 
seuchung  wird  dabei  in  fünf  Stufen  angezeigt,  nämlich  unver- 
seucht,  bis  25,  50,  75  oder  100  Prozent  verseucht.  Da  diese 
Weltgrafik  nur  zur  Übersicht  dient  und  Sie  hier  keine  Entschei¬ 
dung  treffen  können,  gelangen  Sie  nach  Betätigen  einer  Taste 
wieder  zurück  ins  Menü,  von  wo  aus  Sie  wieder  alle  vier  Ent¬ 
scheidungsmöglichkeiten  haben. 

Die  Meteore  haben  eine  Geschwindigkeit  von  ungefähr 
9000  Kilometern  pro  Tag.  Hat  man  die  erste  Meteorwelle  er¬ 
folgreich  bekämpft,  folgen  weitere  Meteore  nach.  Erst  nach 
30  Tagen  Aktionszeit  stürzen  keine  weiteren  Meteore  mehr 
auf  die  Erde  ein,  und  das  Spiel  kann  ausklingen.  Nach  60  Ta¬ 
gen  schließlich  ist  das  Spiel  auf  jeden  Fall  beendet. 

Ein  Meteoraufschlag  fordert  zwei  Millionen  Todesopfer  di¬ 
rekt  und  durch  Verseuchung  sofort  weitere  fünf  Millionen  Tote. 
Jeder  weitere  Tag,  an  dem  die  Seuche  in  der  betreffenden  Re¬ 
gion  nicht  bekämpft  wird,  bedingt  weitere  fünf  Millionen  Tote. 

Ist  eine  Region  total  verseucht,  so  können  die  Nachbarlän¬ 
der  infiziert  werden.  Eine  weitsichtige,  strategische  Planung 
der  Seuchenbekämpfung  ist  daher  unumgänglich. 

Der  Schwierigkeitsgrad  des  Spieles  ist  zugegebenermaßen 
nicht  gerade  niedrig.  Nur  wer  die  Nerven  behält  und  weitsichtig 
plant,  wird  letzten  Endes  die  völlige  Auslöschung  der  Mensch¬ 
heit,  zumindest  im  Spiel,  verhindern  können. 

(Wolf-D.  Robrahn/ev) 


Region 

Millionen  Einwohner 

Asien 

2738 

UdSSR 

312 

Europa 

576 

Afrika 

480 

Australien 

24 

Nordamerika 

310 

Südamerika 

362 

Wasser 

— 

gesamt 

4802 

Tabelle  1.  Das  Aktionsfeld  ist  in  acht  Regionen  aufgeteilt 

10  rem"ep idemic " 

15  poKe36S79 , 1G8 
20  pr  int ehr 14 ) 

25  pr  in-t  "SEEEEEUHI  1983  by 

30  Pr  iirt  "EMUMaIo  1  -f  -D  .  Robr  ahn  " 

35  Pr  int " gllMBee thovenstr .  18 
40  pp  int  “5illE£00  Elmshorn 

50  fort = lto5000 : next 

51  pr int chr$( 142 ) 

52  pr  ir>t"&SB3EEEEEmmmmmmm 


53  print"  eped 

54  print"  WMtMWik 

55  poKe36379/li 

60  f ora 1 =£5to249step3£ 
65  poKe36S79,al 
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m  i  c 


70  -fort  =  Ito  1000  :  next 


75  next 

80  poKe36879 , 25 

100  forr  1  =  lto200 

110  r2=int (rnd C l)*126>+4£50 

1E0  poKerE  ,8  1  :poKer-2+33792  ,r3 

130  r3=r3  +  l : if r3=8thenr3=0 

140  ifr 3=  1  thenr3  =  £ 

150  next 
155  print" 3" 

1 60  f oral=lto 462 
170  print  "33  ""next 
190  pr intchr$C 14 ) 

200  print" i-ÜJ  i  e  v  i  e  1  e  Verluste  geste 

hen  Sie  sich  bei  Ihrer  strategischen 


Fuehrung  "  ; 

210  print"  ein?" 

220  print  "^pesamtbey  .  " 

230  pr  in t  "H43025I  Mi 1 1 . E inwohne r “ 
240  pr  int  "SEIÜIHJMi  1  1  .  E  inuohner 
250  input  "3"  ' 

260  b  y  =v  a  1  Ca$> 

498  mz  =50 : r K  =35 

499  poKe 36379 ,25  :  pr intchr^C 144) 

500  rem  anzahl  meteor 
520  a= 1 3 

530  d irnme Ca ) 

540  toral=ltoa 

545  a3=int  Crnd  C 1 )#4e4)+9e4 


550 

560 

570 

r:~  C  a  1  )  = 

next 

got  o700 

a3 

Listing  » 

Epedemic» 

600 

rem  meteor  entf. 

620 

foral=ltoa 

630 

a3=int  Crnd  C 1 )*8e4)+3e4 

640 

me  C  a  1  )  = 

a3 

650 

next 

655 

ifbb=lthen 1400 

700 

rem  var 

iab 1 en 

730 

da=  1  : po 

=4802 : px  =po 

750 

a$C5)=" 

AUSTRAL. : " 

751 

a£C 1 )=" 

ASIEN: " 

752 

a$C3)=" 

EUROPA:  " 

753 

a$C6)=" 

NORDAMER. : " 

754 

a*C7)=" 

SUEDAMER . : " 

755 

aiC  4 )  =  " 

AFRIKA: " 

756 

a$<2)=" 

UdSSR : " 

757 

a$C3)=” 

WASSER : " 

758 

a$C9>=" 

WASSER : " 

770 

po  C  1  >=2738: po  C3)=576:po  C6> 

=3  10 : p  o C7 

>=362: po  C4  )  =480 : po C2)=312:po  <5 ) =24 


775  foral  =  lto7:px(al)=po  Cal):next:bb=l 
8  15  pr intchr$( 14) 

950  f ort  1  =  lt o3000: next 
1400  rern  total  status 

1415  foral  =  lto9:  ifpl  Cal) =0t h  en  nex t : go t o 
1500 

1420  pr  int  "£#Eust and  fuer  Tag:  "da 
1430  pr  int  T -i .i-,-Ln 

1435  print "3  Region  Aufschi.  ” 

1440  f ora  1  =  lto3 

1445  ifp  1  Cal >=0then 1460 

1450  pr in ta$Ca 1 ) , "  tt#  " 

1460  next 

1465  pr int  "BEEI  weiter  mit  fl" 

Ü-'aj*  IT 


(line.de 
ine.net 


C  20+8  KByte 


1470  getx$:  i-f  x$<  >chr $(  133  > t hen  1470 
14S0  f or a  1  =  1 1 o9 : p 1  Ca  1 ) =0 : ne x t 
1500  rem  total  status 
1515  poKe36379 ,25 
1520  pr intchr $( 14 ) 

1530  Print" Z9VZZ u s t an d  -fuer  Tag:  "da 

1540  print  "|| - " 

1550  pr  inf'l’leteor  Entfernung  3" 

1560  ■fora  1  =  ltoa 

1565  ifrne  Cal  )<=0andme  Cal  )=>-10000thenpr 


a  1  )  =0 

2530  i-f  me  Cal  )  <  -  10000th  enme  (al  )=- 15000 

2540  ifrne Cal)=0thengosub6000:me(al)=-10 

000 :c  Cb )  =  1 :pl Cb)  =  l 

2550  next 

2590  u  e  =  0 

2600  fora 1  =  lto7 

2510  if c Ca  1  >  =0then£640 

2620  po  Cal >=po  Ca  1 ) -5 :  ifpo  Cal )<0thenpo Ca 
1  )  =0 


int "Nr . "altabCll) "a^UFSCHLAGd" : goto 15S 
0 

1567  ifrne  Ca  1  )<  -  10000t  hen  pr  int  "Nr  .  11  a  1  tab 
eil) "aa^ABSCHUSSd" :goto 1580 
1570  print "Nr."  tab C3 )a ltab C9 ) "i  "me  Ca  1 ) 
tab  C 19) "Km" 


2625 

2630 

0 

2640 

2645 


ue  (a  1  )=px  Cal  )  -  po  C  a  1  ) 

epCal )  =  int  C C 1000*ue (al ) )/px Cal ) )/l 


1580 

1590 

1600 

1610 

1620 


next 
pr  int 
pr  int 


H3  es.  Beo.  3"potab C 17 ) "Mi  1  1  n 
pr  int  "BVer  luste  :  d"ue tab ( 17 ) "Mi  1 1  " 
print" 55  weiter  mit  fl 3" 

1630  getx$: if x$< >chr$C 133 )t hen 1630 
1660  pr  int  "äUZustand  fuer  Tag :  "da 
1670  print "======================" 

1680  pr  in t "SReg  ion  Bevoe lKer ung " 

1630  fora 1= lto7 

1700  pr  int  "a"a$Cal  )  "d"tab  C  10)  poCaDtab 
C 17) "Mi  1 1  " 

1710  next 

1720  print"  Verluste 

1730  fora  1= lto7 

1740  pr int "a"a$Cal ) "a"tab  C 10)ve  Cal )tab  C 
17) "Mil  1  " 

1750  next 

1755  print".«  weiter  mit  fl3" 

1760  getx$:  ifx$Ochr$(133)then  1760 
1300  poKe 36873 ,76 

1805  pr  int  "SBKrTref  f  en  Sie  Ihre  Ent-  sch 
e  idung  zur  Rettung  der  Er d b eu o e 1 K er un g  ! 

II 

1310  print 


Me  =ue  +ue (a 1  ) 

ifep  Cal ) >=100andc (al )  =  lthenc  Cal  +  1  ) 
=  1  : c Ca  1  - 1 )  =  1 
2800  next 

da=da+ 1 : po =px -ue : if po <0thenpo =0 
if ue= >byt hen 60000 
if da  >  =60t he  n 60000 
fora 1  =  1 1 o  13 

ifrne Cal ) < =0andda >30t hen next :goto51 


2900 

2350 

2960 

4600 

46  10 
00 

4700 

47  10 
5000 
5100 
5  1  10 
5  120 
6:  J 
6020 
6030 


600 


Listing  »Epedemic« 
(Fortsetzung) 


fora2=ltoa 

ifrne  Ca2X=0thennext  Jgoto 
goto  1400 
foral=lto7 

ifc  Ca  1  )  =0th ennext : go t o 60000 
goto  1400 

rem  aufschl.ziel 
b=intCrnd<l)*3)+l 
poCb)=poCb)-2:return 
10000  rem  rrie  d.  Mer  s. 

10020  poKe36879,59:pr int ehr $( 144) 

10030  print"äa  medizinische 

Versorgung  " 

10040  pr  in  t  naUv>er  seuchte  Regionen" 

10050  print 

10060  print"da  Region  Nr  Level  " 
10065  foral  =  lto7:  ifc  Cal  )  =0th ennext :goto 
60500 


med  iz  in .Versorg . 

e  i 

10070  fora  1  =  1 1  o  7 

RaKetenab schuss 

zu 

10075  ifc Cal  )=0then 10100 

10080  ifep  Cal  )<=0ther.  10100 

eines  Meteors" 

nukleare  Vern. 

e  i 

10085  ifve  (al)=px(al)thenpr  int"a,,a$(al) 
"d"tab  C3)a ltab ( 15) "  TOT" : goto  10100 

ProduKtion  uon 

Me 

10080  pr int "aMa$Ca 1 ) "d"tab C9)al  tab(13) 
ep  Ca  1  ) t ab  C  13) 

Seuchenzustand  in 

Ue 

10100  next 

10110  print" >>>>>>>>>>><<<<<<<<<<<" 

ner  Reg .  " 


r  Vern ichtung 
1840  pr  int  "<3 
ner  Region" 

1850  pr  int "  <4 
d  i Kamen ten " 

1855  pr  int  “  <5 
1 1 graf  iK  " 

1360  inpu  t  "3El£Cl-'Ch  luesseizahl  3"  /  sz 

1670  fort = lto500 : next 

1300  rem  abzue  igung 

1930  ifsz  =  lthen  10000 

1940  if sz =2then20000 

1350  if sz=3then30000 

I960  if sz =4t hen40000 

1365  if sz =5then50000 

1970  ifsz<=0orsz>5then 1S60 

2400  rem  Mar.berech. 

2500  foral=ltoa 

2505  ifrne Cal )=-15000then2550 

25 10  ifrne  Cal  >>0then me (al )=me Cal) -90  00 

2520  ifrne  Ca  1 ) <  =0andme  Ca  1 ) >- 10000t he nme  C 


114 


10  115  pr in  t "MED. VORRAT:  "mz "t " 

10  120  in put  "Busl che  Regiond"Ja4 
10  125  pr  int  "EO'ioet  ige  Menge  :  "Me  Ca4  )  "t  " 
10127  if ue Ca4) >mzthenpr int "ENICHT  GENUG 
VORRAT" :goto 10140 
10130  mz=mz-Me(a4) 

10135  print "SMED . VORRAT: "mz "t " 

10137  c  Ca4  )  =0 

10140  f or t= lto3000 : nex t 

10150  goto2500 

20000  rem  raKetenab . 

20010  po Ke  36879, 170 : pr i n t ch r M 28 ) 

20015  print  "aailFaKetenabschuss" 

20030  pr  int  " SldSRaK e t e n r e  ichwe  ite  = 

50000  Km  " 
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20035  print"S  Meteor  Entfernung  " 

20036  ifc  C  1 ) >0andc (2) >0andc C3) >0andc (4) 
>0andc  C5 ) >0andc  (6 ) >0andc (7  5  >0then 21000 

20037  foral=ltoa:  ifme (al ) < 1 50000 r me  Ca 1 ) 
>50000thennext :goto60300 


"altab ( 1 0 )me (al ) "Km" 


20040 

f  o 

20050 

if 

0  120 

20060 

pr 

20  120 

ne 

20  125 

pr 

20  130 

pr 

20  135 

if 

20140 

pr 

20150 

in 

20155 

go 

20  160 

if 

20170 

a  1 

20180 

go 

21000 

pr 

ifal=loral=2then 
a  1  =0 :  r-K  =rK  -  1 


me Ca5 )  =- 15000 


40130  print  mWMWMWWm 

40140  print  "STded  .Vorrat:.3"mz  "t  n 
40150  f or t = lto5000 : next 
40160  goto2500 
50000  rem  ueltKarte 

500  12  p o K e 36679 , 104 : pr int ehr 142 ) 
50015  print "93  ueltKarte" 

500  17  f orb4=37932to3ß327:poKeb4 ,7  tnext 

50019  gosub51000 

50020  forq=ltol83 
50030  re ad Kl 
50040  readk'j 


poKe4553 , 160:poKe4536, 160!poKe3S3 
o  K  e  3332S , 7 

print  EEEEEEEEEEOEEeEEEEEIIlJ  n  v  e  r  s 


21000  print "KE  IN  ABSCHUSS  MOEGL ICHDA  AL 
LE  REGIONEN  VER-  SEUCHT" 

21001  pr int "SPRINGEND  ICD . H I LFE  ERFO 
RDERL ICH ! " 

21002  f or t  =  1 1 o8000 : ne x t 
21005  go t o20 1S0 

22000  al  =  int (rnd < 1 ) *3 ) + 1 : if a 1 =3thenpr in 
t "  3****Z I EL  VERFEHLT*** *3" sfort  =  lto500 
0  :  next 

22005  return 

23000  print  "EIIHR  POTENTIAL  IST  ERSC 

HOEPFT! " 

23010  f or t = lto5000 ! next i goto2500 
30000  rem  nuKl.det. 

30020  poKe3SS73, 127 
30030 
30035 
30040 
n  auf 


30050 
n  tot  < 


30070  ifc(al)=landep(al) >50then30080 
30075  go to30 150 

30030  p r i nta$(al ) t ab  < 10>altab  < 14  )  e  p (al ) 
tab  < 19) "X" 

30  150  next 

30160  inpu t  "Sbe  1  che  Reg  ion  ";b  1 
30  170  po  Cb  1 ) =0 :c  <b 1 )=0 :ue (b 1 )=Px  Cb  1  ) 
30130  goto2500 
40000  rem  prod.rned. 

40015  p o K e 3S873 , 15Q:printchr$C 144) 

40030  pr int "3BMed iKamente  ProduKticn" 
40040  pr int "Sie  Koennen  nur  in  un-uerse 
uchte n  Regionen  produzieren!" 

40045  print  "StB  Region  t  Med iK .  " 

40049  aa  =0 

40050  f ora  1  =  lto7 

40060  ifc (al )=lthen40120 
40070  mK Cal)=int CpoCal )/30) 

40075  pr inta^Cal )tab ( 13)mK Ca  1 ) 
aa=aa+mK  Cal) 


53050 

poK 

50080 

nex 

58065 

poK 

50, 4!| 

poKe 

50066 

pr  i 

eucht 

u 

50067 

pr  i 

50070 

get 

50030 

res 

50030 

pr  i 

53  100 

g  ot 

50500 

dat 

43,98 

,4  14 

50500  data4  140 , 108 ,4141  ,254,4  142,252,4  1 

43.98.4  144,98,4  145, 123,4  156, 100,4  153, 1 1 
1  ,4160,100 

50510  d at a4  1 62 ,236,4163, 160,4164,160,41 
65, 160,4166, 160,4167, 160,4168, 108,4173, 
254 

50526  iata4174  ,252,4 175 , 123,4176,108,4  1 

77.254.4  178,160,4  179, 160,4180,160,4181  , 
160 

50530  data4  182, 160,4  183, 126,4  185, 126,4  1 
86,251  ,4187, 160,4  188, 160,4189, 160,4  190, 1 


pr  in 

t  " 

93  n 

uK 

1  e 

ar 

e 

Ve 

r 

n 

ich  t 

u 

ng 

II 

53000 

f  or  c 

1=381  1 

pr  in 

t  n 

**** 

;** 

** 

*  * 

* 

*** 

* 

* 

**** 

* 

*  " 

59010 

poKe 

c 1 ,4  :  p 

pr  in 

t  " 

Sbm 

de 

n 

Be 

f 

al  1 

d 

er 

V  ir e 

poKec 

1  +c4  , 

4  :  poKe 

an  d  e 

re 

Re 

g  i 

o 

n  en 

z 

u  ve 

r 

me 

iden 

ec  1  +c7 , 4 

53015 

pok'e 

c  1  +c3  , 

pr  in 

t  " 

ist 

es 

n 

oe 

t 

ig 

e 

i 

n  e 

R 

eg  io 

59020 

next 

:  go t o5 

ll  zu 

z 

er  - 

s 

to 

er 

e 

n  .  " 

60000 

r  e  m  * 

****** 

pr  in 

t  " 

Eia 

Re 

g  i 

o  n 

Nr 

. 

Lev 

e 

1 

" 

600  10 

rem 

ende 

f  or  a 

1  = 

1 1  o7 

80020 

rem* 

****** 

40030 
40120  next 
40125  mz=mz+aa 
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Listing  »Epedemic« 
(Schluß) 


60030  poKe36379, 154 

60040  print "93  Spielende" 

88050  ifye=)bythengo5ubB0100 
60080  if ve <byt hengosub60200 
60070  pr  int  "Ergehn ist" 

60075  print  "Sb es . Beo .  :  "po "Mi 1 1  " 

660S0  pr in t  "EWer lusie :  "ve "Mi 1 1  " 

60090  pr  int  "SFiKt  ionsdauer  :  "da  "Tage  " 
60095  end 

60100  print "EOS  IE  HABEN  DAS  SPIEL  VER 
LOREN ! " 

S0  150  return 

S0200  print "EOS  IE  HABEN  DAS  SPIEL  GEW 
ONNEN ! " 

60250  return 

60300  pr  in  t  "SEO<e  in  Ziel  in  Aussicht!” 
603  10  f ort  =  lt o2000  : next :  goto2500 
60500  print  "SEI  zur  Zeit  Keine 
Verseuchung  " 

60510  print"  cJsWÄne  d  .Vorrat  :  3"  mz  "  t  " 

605  15  fort  =  lto5000 : next : goto 2500 
READY. 
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Am  besten  verwenden  Sie  dazu  die  vorbereitete 
Auftragskarte  am  Anfang  des  Heftes.  Bitte  be¬ 
achten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zei¬ 
len  mit  je  32  Buchstaben  betragen.  Überweisen 
Sie  den  Anzeigenpreis  von  DM  5,—  auf  das 
Postscheckkonto  Nr.  14199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik, 
64'er«,  oder  schicken  Sie  uns  DM  5,—  als 
Scheck,  in  Briefmarken  oder  in  Bargeld.  Der 
Verlag  behält  sich  die  Veröffentlichung  längerer 
Texte  vor.  Kleinanzeigen,  die  entsprechend  ge¬ 
kennzeichnet  sind  oder  deren  Text  auf  eine  ge¬ 
werbliche  Tätigkeit  schließen  läßt,  werden  in 
der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum 
Preis  von  DM  10,—  je  Zeile  Text  veröffentlicht. 


Wollen  Sie  einen  gebrauchten  Computer  ver¬ 
kaufen  oder  erwerben?  Suchen  Sie  Zubehör? 
Haben  Sie  Software  anzubieten  oder  suchen 
Sie  Programme  oder  Verbindungen?  Die  FUND¬ 
GRUBE  von  64'er  bietet  allen  Computerfans  die 
Gelegenheit,  für  nur  DM  5, —  eine  private  Klein¬ 
anzeige  mit  bis  zu  5  Zeilen  Text  in  der  Rubrik 
Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  pri¬ 
vate  Kleinanzeige  In  die  FUNDGRUBE  der 
November-Ausgabe  (erscheint  am  19.  Oktober 
84):  Schicken  Sie  Ihren  Anzeigentext  bis  zum 
26.  September  84  (Datum  des  Poststempels  und 
Anzeigenschluß)  an  »64'er«.  Später  eingehende 
Aufträge  werden  in  der  Dezember-Ausgabe  (er¬ 
scheint  am  16.  November  84)  veröffentlicht. 
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Reise  durch  die  Wunderwelt 
der  Grafik  -  Teil  7 

In  dieser  letzten  Folge  des  Grafikkursus  wird  auf  das 
Hinterschneidungsproblem  eingegangen.  Außerdem 
wird  eine  Lösung  für  die  gleichzeitige  Darstellung  von 
hochauflösender  Grafik,  Text  und  Mehrfarb-Bit-Map  auf 

einem  Bildschirm  gezeigt. 


Dies  ist  die  letzte  Folge  unseres 
Grafikkurses.  In  der  nächsten 
Ausgabe  wird  noch  ein  Maschi¬ 
nenprogramm  gezeigt,  das  die  Gra¬ 
fik  unterstützt.  Das  Dornröschen  (un¬ 
sere  hochauflösende  Grafik)  wird 
dann  völlig  erwachen  und  ihre  Be¬ 
häbigkeit  wird  sich  verlieren. 

Es  stellte  sich  die  Frage,  wie  man 
es  wohl  erreichen  könnte,  daß  nur 
sichtbare  Teile  einer  Raumfläche 
gezeichnet  werden.  H.W.  Franke  hat 
in  einem  Artikel  über  Computergra¬ 
fik  geschrieben:  »Bis  heute  kann 
man  das  Problem  noch  nicht  als  völ¬ 
lig  abgeschlossen  ansehen«.  Damit 
meinte  er  das  Hinterschneidung¬ 
sproblem.  Zumindest  für  unsere 
Aufgabenstellung  und  den  C  64 
kann  man  es  lösen,  wenn  man  fol¬ 
gendem  Gedankengang  verfolgt. 
Stellen  Sie  sich  doch  mal  den  Bild¬ 
schirm  des  C  64  in  320  senkrechte 
Linien  unterteilt  vor,  für  jeden  mögli¬ 
chen  X-Wert  also  eine  Senkrechte. 
Nun  nehmen  wir  mal  eine  davon  (bei 
X  =  X1)  und  ordnen  ihr  in  unserem 
Koordinatensystem  willkürlich  ei¬ 
nen  Y-Wert  0  zu  (Bild  1).  In  der  Dop¬ 
pelschleife  (siehe  3D-Programm  in 
der  letzten  Folge)  wird  nun  irgend¬ 
wann  X  =  XI  sein  und  dann  der  dazu¬ 
gehörige  Y-Wert  berechnet.  Dieser 
soll  zum  Beispiel  gleich  1  sein.  Der 
Punkt  wird  gesetzt,  und  die  Schleife 
läuft  weiter  (Bild  2). 

Wenn  alle  X-Werte  durchlaufen 
wurden,  erhöht  sich  der  Z-Wert  in 
der  äußeren  Schleife  und  von  neu¬ 
em  wird  für  XI  ein  Y-Wert  berechnet. 


bar  und  wird  gezeichnet.  Im  Fall  C 
aber  liegt  er  zwischen  P  und  P’,  er  ist 
nicht  sichtbar,  weil  er  auf  einem  uns 


Y 

k 


Bild  1.  Eine  der  320  Senkrechten  (X=X1) 


Bild  2.  Der  erste  Punkt  auf  der  Senkrechten 


Bild  3.  Der  zweite  Punkt  P'  ist  gesetzt 


abgewandten  Hang  der  Raumfläche 
liegt  und  wird  daher  nicht  gezeich¬ 
net.  Sie  sehen  also,  daß  wir  uns  le¬ 
diglich  immer  auf  jeder  dieser 
Senkrechten  den  bisher  größten 
und  den  bisher  kleinsten  Wert  von  Y 
merken  müssen.  Bei  jedem  neuen  Y- 
Wert  können  wir  feststellen,  ob  er  in¬ 
nerhalb  des  damit  aufgespannten 
Bereiches  liegt  (dann  wird  er  nicht 
gezeichnet)  oder  außerhalb  (dann 
wird  er  gezeichnet  und  dieser  Wert 
als  der  größte  oder  kleinste  bisheri¬ 
ge  gemerkt).  Damit  ist  für  uns  das 
Problem  gelöst!  Wir  richten  ein 
zweidimensionales  Feld  ein:  G  (319, 
2),  wo  für  jede  der  320  Senkrechten 
drei  Werte  gespeichert  werden 
können: 

G(X,0)  als  bisher  höchster  Y-Wert, 
G(X,1)  als  bisher  kleinster  Y-Wert, 
G(X,2)  als  Kennmarke,  ob  für  diesen 
X-Wert  schon  ein  Y-Wert  aufgetaucht 
ist  (in  dem  Fall  ist  G(X,2)>0)  oder 
noch  nicht  (dann  ist  G(X,2)  =  0). 
Durch  das  RUN-Kommando  sind  al¬ 
le  Variablen  gleich  0,  also  auch 
G(X,2).  Genau  besehen  benötigen 
wir  diese  Kennmarke,  ob  auf  der 
Senkrechten  durch  X  schon  ein 
Punkt  gesetzt  wurde,  nicht  unbe¬ 
dingt  in  unserem  Programm.  Es  ist 
so  gestaltet,  daß  beim  X-Durchlauf 
keine  Lücken  gelassen  werden. 
Sinnvoll  ist  es  trotzdem,  sie  einzu¬ 
richten,  denn  durch  die  45°  -Ver¬ 
schiebung  erhöht  sich  ja  der  maxi¬ 
male  X-Wert  ständig  und  außerdem 
könnte  man  sich  ja  mal  überlegen, 
ob  man  den  X-Durchlauf  mit  Lücken 
macht.  In  der  letzten  Folge  hatten 
wir  im  Flußdiagramm  unsere  Dop¬ 
pelschleife  entwickelt.  Dabei  war 
ein  Teil  »Zeichnen  des  Punktes  X,Y«. 
Diesen  Teil  ersetzen  wir  durch  den 
in  Bild  5. 

Jetzt  sehen  wir  uns  das  als  Pro¬ 
grammteil  an.  Also  Computer  an¬ 
schalten,  Laden  des  3D-Program- 
mes  aus  der  letzten  Folge  sowie  der 
Grafik-Unterprogramme  aus  der 
vierten  Folge  (entweder  —  falls  Sie 
das  haben  —  durch  MERGEn  oder 
als  kombiniertes  Programm  aus  der 
Arbeit  in  der  letzten  Folge).  Zeile  230 
des  3D-Programmes  enthält  als  letz¬ 
ten  Befehl  GOSUB  50040,  den  Aufruf 


Nehmen  wir  an,  der  läge  bei  1,5. 
Auch  dieser  Punkt  wird  gesetzt  und 
die  Schleife  geht  weiter  (Bild  3). 

Wenn  nun  beim  nächsten  Schlei¬ 
fendurchlauf  XI  erreicht  ist,  wird  es 
spannend.  Es  gibt  nun  drei  Möglich¬ 
keiten  (Bild  4). 

In  Fall  A  liegt  der  neue  Punkt 
oberhalb  von  P',  ist  sichtbar  und 
wird  gezeichnet.  Im  Fall  B  hegt  er 
unterhalb  von  P,  ist  ebenfalls  sicht- 


Bild  4.  Die  drei  Möglichkeiten  für  einen  neuen  Punkt 
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zum  »Punkt  zeichnen«.  Den  löschen 
wir  jetzt  und  fügen  die  folgenden 
Zeilen  ein: 

232  IF  G(X,2)  =  0  THEN  G(X,0)  = 
Y:G(X,l)=Y:GOTO  238 
234  IF  Y  >G(X,0)  THEN  G(X,0)  = 
YGOTO  238 

236  IF  Y  <G(X,1)  THEN  G(X,1)  = 
YGOTO  238 

237  GOTO  240 

238  G(X,2)=G(X,2)  +  l:GOSUB  50040 
Außerdem  muß  natürlich  zu  Beginn 
dieses  Feld  noch  dimensioniert  wer¬ 
den:  147  DIM  G  (319,2) 

Mit  der  Beispielfunktion  Y=COS(Z) 
*SIN(X)  und  den  Eingaben:XU  =  -l, 
XO  =  10,  YU  =  -2,  YO  =  5,  ZU=-.l, 
ZO  =  7,  Schrittweite  =  8,XA  =  0, 
XE  =  6,  ZA  =  .1,  ZE  =  7  sieht  man  den 
Effekt  jetzt  ganz  deutlich.  Das  einzi¬ 
ge  —  außer  der  Geschwindigkeit 
(und  naja-vielleicht  noch  ein  paar 
Kleinigkeiten)  —  was  unsere  3D- 
Grafik  jetzt  von  professionellen  Sy¬ 
stemen  unterscheidet,  ist  die  Mög¬ 
lichkeit  der  Netzgrafik  (Bild  6). 

Dieses  Thema  soll  nicht  ausführ¬ 
lich  behandelt  werden,  sondern  wir 
werden  nur  zwei  Wege  zur  Netzgra¬ 
fik  anschauen: 

Weg  1: 

Wir  machen  die  Schrittweite  in  Z- 
Richtung  sehr  klein  (so  wie  die  in  X- 
Richtung),  setzen  aber  nicht  jeden 
Punkt,  sondern  zum  Beispiel  in  fol¬ 
gender  Anordnung: 

a)  1.  Z-Wert:  Jeder  Punkt  der  X- 
Schleife  wird  gesetzt,  dann 

b)  2.  bis  7.  Z-Wert:  Nur  jeder  8. Punkt 
der  X-Schleife  wird  gesetzt,  dann 

c)  wieder  weiter  wie  beim  1.  Z-Wert 
und  so  weiter. 

Stark  vergrößert  hätten  wir  dann 
etwa  Verhältnisse  wie  in  Bild  7. 

Diese  Lösung  ist  programmtech¬ 
nisch  einfacher  als  Weg  2  und  ganz 
gut  an  unser  bisheriges  3D- 
Programm  anzuhängen.  Nun  aber 
noch  zu 

Weg  2: 

Man  läßt  außer  der  Z-X- 
Doppelschleife  zur  Berechnung  von 
Y  auch  noch  eine  X-Z-Doppelschlei- 
fe  laufen.  Wenn  Sie  das  ausprobie¬ 
ren,  gibt  es  allerdings  wieder 
Schwierigkeiten  mit  den  nicht  sicht¬ 
baren  Linien,  denn  unser  Verfahren 
zur  Lösung  des  Hinterschneidungs¬ 
problems  läßt  nichts  mehr  zeichnen, 
was  innerhalb  von  G(X,0)  bis  G(X,1) 
liegt! 

Anscheinend  hat  man  bisher  noch 
keine  Möglichkeit  Erklärungen  auf 
das  Grafikbild  zu  schreiben.  Wenn 
wir  im  Hochauflösungsmodus  zum 
Beispiel  das  Programm  durch 
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<  RUN/STOP  >  anhalten,  dann  tau¬ 
chen  alle  Meldungen  als  farbige 
Quadrate  auf  dem  Bildschirm  auf. 
Der  Inhalt  des  Bildschirmspeichers 
dient  ja  jetzt  als  Farbinformation. 
Was  der  Computer  mit  dieser  Farb- 
kombination  dann  jeweils  auf  dem 
Bildschirm  zeigen  soll,.  ho£  er  sich 
aus  der  Bit-Map.  Man  kann  natürlich 
ohne  weiteres  die  wichtigsten  Zei¬ 
chen  aus  Punkten,  Linien  und  Ellip¬ 
senbögen  zusammenbauen  unter 
Verwendung  unserer  Grafik- 
Unterprogramme.  Das  wäre  sozusa¬ 
gen  der  »harte«  Weg.  Aber  wozu  ha¬ 
ben  wir  im  Speicher  schon  die  ferti¬ 
gen  Zeichenmuster  liegen!  Wir 
müßten  nur  auf  sinnvolle  Weise  an 
sie  herankommen.  Prinzipiell  gibt  es 
zwei  »weiche«  Wege: 

a)  Herbert  Kunz  hat  den  einen  da¬ 
von  in  der  Zeitschrift  Computer  per¬ 
sönlich,  Ausgabe  2  (1984),  Seite  78 
vorgestellt.  Er  kopiert  zunächst  den 
Zeichensatz  in  einen  RAM-Bereich, 
schaltet  dann  —  wie  gewohnt  —  in 
den  Hochauflösungsmodus  (bei  ihm 
liegt  der  Bildschirm  bei  1024  und  die 
Bit-Map  richtet  er  bei  8192  ein)  und 
druckt  den  Text  auf  den  Bildschirm, 
wo  dieser  erst  mal  in  farbigen  Qua¬ 
draten  auftaucht.  Nun  sieht  er  mittels 
PEEK  nach,  welches  Zeichen  an  der 
Bildschirmstelle  steht  (wo  jetzt  natür¬ 
lich  nur  ein  farbiges  Quadrat  zu  se¬ 
hen  ist).  Was  Herbert  Kunz  dadurch 
erhält,  ist  die  Kennzahl  (der  Bild¬ 
schirmcode,  zum  Beispiel  für  ein  A 
eine  1),  die  uns  sagt,  an  welcher  Stel¬ 
le  der  Zeichentabelle  das  gefragte 
Zeichen  steht.  Dabei  ist  allerdings 
zu  bedenken,  daß  es  auch  eine  null¬ 
te  Stelle  gibt.  Jedes  Zeichen  besteht 
aus  8  Bytes  und  deshalb  multipliziert 


er  die  Kennzahl  mit  8  und  addiert  sie 
zur  Startadresse  des  RAM-Berei- 
ches  hinzu,  in  den  er  das  Zeichen- 
ROM  kopiert  hat.  Von  da  an  über¬ 
trägt  er  Byte  für  Byte  das  Zeichen  in 
die  entsprechende  Stelle  der  Bit- 
Map  (die  er  aus  Zeilen  und  Spalten¬ 
angabe  berechnet).  So  wird  es  dann 
sichtbar. 

Das  macht  er  Zeichen  für  Zeichen 
bis  der  gesamte  —  in  einem  String 
definierte  —  Text  in  der  Bit-Map  und 
damit  für  uns  lesbar  auf  dem  Bild¬ 
schirm  steht.  Dieses  Prinzip  können 
wir  in  unsere  Programme  überneh¬ 
men.  Dazu  sind  nur  wenige  Ände¬ 
rungen  nötig.  Zunächst  schließen 
wir  den  neuen  Zeichen-Speicher  im 
RAM  direkt  an  unsere  Bit-Map  an: 
ab  32768.  Das  Maschinenprogramm 
von  Herbert  Kunz  verändern  wir 
deshalb  etwas  und  legen  es  nicht  in 
den  Kassettenpuffer,  sondern  von 
dez.  673  bis  715.  Wie  im  Programm 
von  Herbert  Kunz  brauchen  wir 
dann  nur  noch  die  Angaben,  in  wel¬ 
cher  Zeile  und  Spalte  welcher  Text 
geschrieben  werden  soll. 

Zunächst  einmal  wird  das  Maschi¬ 
nenprogramm  eingelesen  und  aus¬ 
geführt.  In  das  2D-  und  in  das  3D- 
Programm  fügen  wir  ein: 

500  FOR I  =  673  TO  715:  READ  A:PO- 
KE  I,  A:NEXTI:SYS  673:  RETURN 
510  DATA  120,  169,  49,  133,  1,  169,  0, 
133,  98,  133,  100,  169,  208,  133,  99,  169, 
128,  133 

520  DATA  101,  162,  16,  160,  0,  177,  98, 
145,  100,  200,  208,  249,  230,  99,  230, 
101,  202,  208 

530  DATA  242,  169,  55,  133,  1,  88,  96 

In  Zeile  5  hängen  wir  an  die  bei¬ 
den  POKE-Kommandos  noch  an 
:GOSUB  500 
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In  Zeile  120  definieren  wir  einen 
String,  der  einen  senkrechten  Tabu¬ 
lator  ermöglicht: 

120  CP$  =  CHR$  (19):FOR  1=1  TO 
24:CP$  =  CP$  +  CHR$  (17):NEXT  I 
Dann  definieren  wir  den  zu 
druckenden  String  und  Zeile  und 
Spalte  des  Druckortes: 

122  TE$  =  ”Y"  +  F$:ZE  =  0:SP  =  0 
Jetzt  müssen  wir  nur  noch  dafür 
sorgen,  daß  nach  dem  Zeichnen  der 
Kurve  oder  Raumfläche  der  Text  ge¬ 
druckt  wird.  Dazu  gleichen  wir  zu¬ 
nächst  mal  das  2D-  an  das  3D- 
Programm  an.  In  den  Zeilen  200,  210, 
220  des  2D-Programmes  ändern  wir 
die  Zeilennummern  zu  300,  310,  320 
(dann  muß  natürlich  in  Zeile  300  die 
Anweisung  THEN  200  zu  THEN  300 
umgeschrieben  werden  und  die  al¬ 
ten  Zeilen  200  bis  220  gelöscht  wer¬ 
den).  Im  2D-Programm  hört  das 
Zeichnen  in  Zeile  195,  im  3D- 
Programm  in  Zeile  250  auf.  Deswe¬ 
gen  legen  wir  den  Druckvorgang  ab 
Zeile  260: 

260  PRINT  LEFT3  (CP$,ZE  +  1)TAB 
(SP)TE$; 

262  AN = 23552  +  ZE*40  +  SP:GS  = 
24576  +  ZE*320  +  SP*8 
264  FOR I  =  AN  TO  AN  +  LEN  (TE$)-1 
266  L  =  PEEK  (I)  :Z  =  32768  +  8*L:PO- 
KEI,  16*F1  +  F2 

268  FOR  J  =  0  TO  7:POKE  GS+J, 
PEEK  (Z+J):NEXT  J 
270  GS  =  GS  +  8:NEXT  I 
Wenn  Sie  das  Programm  (2D-  oder 
3D-Prop:amm)  jetzt  starten,  bekom¬ 
men  Sie  als  Kopf  des  Hochauflö¬ 
sungsbildschirmes  noch  die  ge¬ 
zeichnete  Funktion  als  Gleichung 
gedruckt.  Sie  können  sich  leicht  aus 
diesen  Angaben  ein  Programm 

148  üjtii* 


schreiben,  in  dem  die  Zeilen  260  bis 
270  ein  Unterprogramm  bilden,  das 
jeweils  mit  neuem  Text  TE$,  neuer 
Zeile  ZE  und  Spalte  SP  aufgemfen 
werden  kann.  So  können  Sie  beliebi¬ 
gen  Text  in  das  Hochauflösungsbild 
schreiben. 

b)  Nun  zum  zwei'um  »weichen« 
Weg.  Weil  sich  dieser  nahezu  völlig 
in  Maschinensprache  abspielt,  soll 
hier  nur  das  Prinzip  erklärt  werden. 
In  der  Serie  über  Assembler- 
Programmierung  wird  dieses  soge¬ 
nannte  Interrupt-Handling  bespro¬ 
chen.  Zunächst  das  Programm.  Tip¬ 
pen  Sie  NEW  ein  und  dann  Lisiing  1. 

Starten  Sie  mit  RUN  und  Ihr  Bild¬ 
schirm  ist  in  drei  Zonen  aufgeteilt.  Ist 
das  Programm  beendet,  drücken 
Sie  eine  Taste.  Sie  sind  auch  nach 
dem  END  noch  in  dieser  Bildschirm- 
Aufteilung.  Sie  können  das  leicht 
feststellen,  wenn  Sie  den  Cursor 
nach  oben  bewegen  und  ein  paar 
Schreibversuche  machen.  Oder 
versuchen  Sie  mal  das  LIST- 
Kommando!  Wenn  Sie  davon  genug 
haben,  dann  geben  Sie  (RUN/ 
STOP)  und  (RESTORE)  ein,  und  Sie 
sind  wieder  im  Normalzustand  des 
Bildschirmes.  Wenn  man  diese 
Technik  beherrscht,  kann  man  mit 
dem  Bildschirm  praktisch  alles  ma¬ 
chen,  was  man  will!  Wir  bedienen 
uns  eines  sogenannten  Rasterzeilen- 
Interrupts.  Ich  habe  Ihnen  in  der 
letzten  Folge  erklärt,  daß  der  bild¬ 
aufbauende  Elektronenstrahl  über 
zirka  280  Rasterzeilen  huscht  und 
20mal  in  der  Sekunde  ein  komplet¬ 
tes  neues  Bild  aufbaut.  In  der  ein¬ 
schlägigen  Literatur  ist  man  sich 
übrigens  uneins:  Woanders  wird  er¬ 


zählt,  es  handle  sich  um  264  Raster¬ 
zeilen  und  60  mal  in  der  Sekunde 
werde  ein  neues  Bild  aufgebaut. 
Wie  dem  auch  sei:  Richtig  ist,  daß  es 
ein  enorm  schneller  Geselle  ist,  der 
über  den  Bildschirm  huscht,  und 
daß  die  aktuelle  Rasterzeile  in  den 
Registern  53266  (LSB)  und  53265, 
Bit 7  (msb)  mitgezählt  wird.  Inter¬ 
rupts  bringen  den  Computer  dazu, 
neben  seiner  uns  sichtbaren  Arbeit 
(zum  Beispiel  Programmablauf) 
noch  eine  Anzahl  anderer  Dinge  zu 
tun.  Eines  davon  ist  die  ständige 
Wiederauffrischung  des  Fernseh¬ 
bildes  durch  Informationen  an  den 
Rasterstrahl.  Der  C  64  löst  solche  In¬ 
terrupts  auch  per  Programm  aus.  Zu 
diesem  Zweck  dienen  die  Register 
53273  und  53274.  Bit  7  von  53273  sagt 
uns,  daß  ein  Interrupt  aufgetreten  ist 
(Bit  7  ist  dann  1),  mit  einer  der  Ursa¬ 
chen,  die  noch  in  den  Bits  0  bis  3  ein¬ 
zeln  angegeben  werden: 

Bit  0  =  1  Rasterzeil en-Interrupt 
Bit  1  =  1  Sprite/Hintergrund-Kollision 
Bit  2  =  1  Sprite/Sprite-Kollision 
Bit  3  =  1  Interrupt  durch  Lichtgriffel. 

Register  53274  bietet  uns  die  Mög¬ 
lichkeit  einer  sogenannten  Inter¬ 
rupt-Maske.  Bis  auf  Bit  7  ist  es  genau¬ 
so  aufgebaut  wie  53273.  Wenn  wir 
hier  zum  Beispiel  in  Bit  0  eine  Eins 
setzen,  dann  weiß  der  VIC-II-Chip, 
daß  er  einen  sogenannten  Raster¬ 
ze  ilen-Interrupt  auslösen  soll.  Nur 
dies  alleine  würde  kaum  Wirkung 
haben,  denn  nun  erfolgt  beim  Auslö¬ 
sen  des  Interrupts  ein  Sprung  an  die 
Adresse,  die  vom  Interrupt-Vektor 
(Speicherstellen  788  (LSB)  und  789 
(MSB))  angezeigt  wird.  Das  ist  im 
Normalfall  ein  Maschinenpro¬ 
gramm  im  Betriebssystem  (Start  bei 
59963).  Weil  dieser  Zeiger  im  RAM 
liegt,  kann  er  verändert  werden,  so 
daß  er  auf  ein  eigenes  Maschinen¬ 
programm  weist,  das  nun  die  Inter¬ 
ruptbehandlung  nach  unserem  Gut¬ 
dünken  ausführt.  Außerdem  müs¬ 
sen  wir  noch  angeben,  in  welcher 
Rasterzeile  der  Interrupt  stattfinden 
soll,  Dazu  schreiben  wir  in  das  Ra¬ 
sterregister  diese  Zeilennummer 
ein.  Das  ist  also  das  Prinzip,  und  weil 
diese  ganze  Angelegenheit  sehr 
schnell  erledigt  sein  muß,  ist  das  nur 
in  Maschinensprache  möglich. 


Grafik  und  Maschinen¬ 
sprache 


Wer  Grafik  in  Basic  betreibt, 
braucht  Sitzfleisch.  Das  haben  Sie  si¬ 
cherlich  am  eigenen  Leibe  be¬ 
merkt.  20  Minuten  für  ein  fertiges 
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3D-Bild,  das  ist  schon  ziemlich  lan¬ 
ge!  Die  meisten  brauchbaren 
Grafik-Programme  sind  deshalb  in 
Maschinensprache  geschrieben.  In 
der  nächsten  Ausgabe  wird  ein  ein¬ 
faches  aber  brauchbares  Grafik- 
Unterprogramm-Paket  in  Maschi¬ 
nensprache  vorgestellt,  mit  dem  Sie 
den  Zeitbedarf  erheblich  reduzie¬ 
ren  können.  Verantwortlich  für  diese 
lange  Zeitdauer  von  Basic-Program- 
men  ist  der  Basic-Interpreter,  der  je¬ 
den  Befehl  übersetzen  muß  und 
dann  ein  zum  Befehl  gehöriges,  oft 
recht  verwickeltes  Maschinenpro¬ 
gramm  ausführt,  dann  den  nächsten 
Befehl  übersetzt,  und  so  weiter... 
Wenn  das  zum  Beispiel  in  einer 
FOR . . . .  NEXT-Schleife  mit  320  Durch¬ 
läufen  passiert,  dann  dauert  das...! 
Je  einfacher  und  auch  allgemein 
verwendbarer  ein  Maschinenpro¬ 
gramm  ist  (jedenfalls  für  Grafik),  de¬ 
sto  umfangreicher  muß  das  Basic- 
Aufrufprogramm  sein.  Oder:  Je  spe¬ 
zialisierter  ein  Maschinenpro¬ 
gramm  ist,  desto  weniger  Basic- 
Aufrufprogramm  ist  nötig.  Ein  Bei¬ 
spiel:  Wenn  das  Maschinenpro¬ 
gramm  lediglich  die  Routine  zum 
Berechnen  und  Zeichnen  eines 
Punktes  enthält,  dann  muß  vom 
Basic-Aufrufprogramm  eine 

FOR . ,  NEXT-Schleife  320  durchlau¬ 


fen  werden,  in  der  jedesmal  X  vari¬ 
iert,  Y  aus  der  Funktionsgleichung 
berechnet  wird,  beide  dann  trans¬ 
formiert  werden  auf  das  Bildschirm¬ 
system,  die  transformierten  Werte 
an  die  Speicheradressen  gePOKEt 
werden,  von  denen  es  die  Maschi¬ 
nenroutine  nach  dem  SYS-Aufruf  ab¬ 
holt.  Man  hat  im  Aufrufprogramm  al¬ 


lerlei  Freiheiten:  Man  kann  nach  Be¬ 
lieben  das  Koordinatensystem  än¬ 
dern,  die  zu  zeichnende  Funktion, 
den  Start-  und  den  Endwert  der 
FOR.. NEXT-Schleife  und  das  alles 
relativ  einfach  durch  einige  INPUT- 
Anweisungen  oder  notfalls  Pro¬ 
grammzeilenänderungen  errei¬ 
chen.  Dafür  muß  man  die  lange  Zeit¬ 
dauer  des  Aufrufprogrammes  hin¬ 
nehmen.  Ein  Maschinenprogramm 
wäre  zwar  sehr  schnell  und  erfor¬ 
derte  von  Basic  aus  unter  Umstän¬ 
den  nur  einen  SYS-Befehl.  Aber  es 
wäre  mehr  oder  weniger  festgelegt 
auf  immer  diese  eine  Aufgabe  und 
damit  recht  unbeweglich  und  auch 
ziemlich  lang.  Maschinenprogram¬ 
me  andererseits,  die  dieselben 
Eingabe-  und  Variationsmöglichkei¬ 
ten  wie  das  vorhin  erwähnte  Basic- 
Aufrufprogramm  bieten,  sind  schon 
etwas  für  Feinschmecker  der  As¬ 
semblerprogrammierung  und  äu¬ 
ßert  rar.  Ein  anderes  Phänomen  ist 
die  Tatsache,  daß  man  vor  der  Wahl 
steht:  Geschwindigkeit  oder  Spei¬ 
cherplatz  sparen.  Man  kann  Grafik- 
Maschinenprogramme  enorm  be¬ 
schleunigen  durch  spezielle  Pro¬ 
gramm-Techniken.  Sie  werden  dann 
aber  häufig  so  lang,  daß  man  sie 
kaum  mehr  als  DATA-ZeYgr  -Listing 
abdrucken  kann. 


Wie  man  einen  Trickfilm  mit  Hilfe 
von  Sprites  drehen  kann,  habe  ich 
Ihnen  in  Folge  5  gezeigt.  Welche 
Möglichkeiten  gibt  es  ohne  Sprites? 
Schneller  Bildaufbau — kurze  Verzö¬ 
gerung  —  Bild  löschen  —  neues  Bild 
aufbauen  mit  veränderter  Ansicht  — 
und  so  weiter...  Wenn  Sie  das  in  Ba¬ 
sic  überlegen,  können  Sie  das 


gleich  wieder  vergessen.  Um  den 
Eindruck  von  Bewegung  zu  vermit¬ 
teln,  muß  alles  viel  schneller  gehen. 
Aber  auch  ein  Maschinenpro¬ 
gramm  muß  sehr  sorgfältig  ent¬ 
wickelt  werden,  um  die  nötige  Ge¬ 
schwindigkeit  des  Bildaufbaues  zu 
erhalten.  Für  einfache  Darstellun¬ 
gen  könnte  dieses  Konzept  aber 
funktionieren.  Denken  Sie  aber  zum 
Beispiel  mal  an  unsere  3D-Bilder! 
Mit  dem  C  64  —  behaupte  ich  — 
geht’s  so  nicht.  Stellen  Sie  sich  vor, 
wir  benützen  mehrere  Bit-Maps  und 


Bewegte  Grafik 


Bildschirme  und  zeichnen  in  je  eine 
Bit-Map  emen  Bewegungszustand 
unseres  Bildes.  Dann  müssen  wir 
nur  noch  in  einer  Aufrufschleife  von 
Bit-Map  zu  Bit-Map  umschalten.  Das 
ist  auch  in  Basic  möglich.  Wir  hätten 
dann  drei  Bit-Maps  zur  Verfügung. 
Das  ist  zwar  nicht  viel,  aber  immer¬ 
hin  könnte  man  damit  schon  eine 
Raumfläche  in  zwei  Richtungen  kip¬ 
pen  oder  ähnliches.  Wenn  man  in 
Maschinensprache  programmiert, 
hat  man  sogar  5  Bit-Maps  (minde¬ 
stens)  zur  Verfügung  und  weil  auch 
noch  alles  schneller  geht,  kann  man 
mit  einigem  Geschick  vielleicht  so¬ 
gar  während  man  vier  Bilder  nach¬ 
einander  zeigt,  das  fünfte  Bild  unge¬ 
sehen  aufbauen  und  auf  diese  Wei¬ 
se  mehr  als  fünf  Bewegungsstadien 
realisieren.  Sie  sehen  aber  schon: 
Das  ist  die  hohe  Schule  der  Pro¬ 
grammierkunst  und  hier  gibt  es 
noch  viel  zu  tun.  Einen  3D-Trickfilm 
auf  diese  Weise  zu  erzeugen,  ist 
heute  auch  auf  großen  Computern 
noch  kaum  möglich.  Der  Film  TRON 
beispielsweise  setzt  sich  aus  lauter 
per  Computer  erzeugten  Einzelbil¬ 
dern  zusammen,  die  erst  filmtech¬ 
nisch  zum  Bewegungsablauf  anein¬ 
andergehängt  wurden.  Dort  wo 
Echtzeit-Darstellung  notwendig  ist, 
bei  Simulationen  beispielsweise  in 
Flugtrainern,  reduziert  man  die  Dar¬ 
stellung  auf  das  unbedingt  notwen¬ 
dige  und  hat  außerdem  dazu  Com¬ 
puter  zur  Verfügung,  die  uns 
C  64-Benutzern  das  Wasser  im 
Mund  zusammenlaufen  lassen. 
Aber  was  solls.  Die  Kunst  des  Pro- 
grammierens  liegt  ja  vielleicht  dar¬ 
in,  daß  man  mit  einem  Minimum  an 
Aufwand  einen  Maximaleffekt  er¬ 
zielt.  Und  wenn  man  sich  dann  mal 
ansieht,  was  wir  aus  unserem  C  64 
alles  herausholen  können,  dann  ste¬ 
hen  wir  eigentlich  ganz  gut  da,  mei¬ 
nen  Sie  das  nicht  auch? 

(Heimo  Ponnath/aa) 
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5  REM***GRAF1K.TEXT  UND  MEHRFARBGRAFIK*. 

7  REM.EIFt.ESEN  UND  ANSCHALTEN  ML-PROGR** 

10  FDP  !  »48  152TQ49278 :  RE  ADA  :  POKE  I  .  A !  NEXT  :  SYS43 152 
13  REM***»*  EP.LAEUTERUNGEN  DRUCKEN  ****** 

20  PR INTCHRS< 147  > : FDP l =0TO8 : PR  INT : NEXT 
30  PP  !1S1T"0BENI  HOCH  AUFL.QESUNGS -MODUS  " 

40  PRINT:PRINT”MITTE:NORMALER  TEXT -MODUS" 

50  PR  INT:  PR  !NT"UNTEN:MEHRFAR8EN-B  1T-MAP -MODUS  ■ 

55  REM*  *F ARBEN  SETZEN ,B IT-MAP  LOESCHENU 

S0  FORI  =1024  TO  1383:  POKE  I  ,  11 4  tNEKTl  :FOR  1  »138.4T0 1429  =POKE I  .SUNEXTI 

70  FOR I  =  1664TÖ2023 : POKE 1  .234  SFEXT 1 

80  FOR  l=5593eT05S295 -.POKE  I  ,13:NEXT1 

80  FORI =6132T01 1391 : POKE 1 . 0:POKE I *4800 -0:NEKT 

93  REM  *  *  »  **+-*♦*  KURVEN  2E  1CHNE14*  *******  » 

100  BA-8192 

103  REI'H  t*  +  **HOCHAUFLOESUNBSMODUS»****  ** 

1  10  A=4G  :  B=0  :FORX=0TO31BMi<JSUB  150: TEXT« 

113  REN* ***MEHRF ARBEN  B 1T-MAP-MOOUS***** 

120  A  = 1 60 : B=0 : FORX=0TO3 1SSTEP2  =SOSUB 150:  ICXTX 
125  6  =40 :  =BP»  1  T03 19STEP2  : 60SUB  150 :  NEXTX 

1 30  8=80 : F GRX=0TO3 19STEP2 :C=0: 60SUB 150 : C  = 1 : SOSUB 150: NEXTX 
1 35  REM* ******** .+ABSCHALTEN** ** * **** * . * 

140  BETAS:  IFAS=  '  "THEN140 

144  END 

145  REM  *******  FUNKTION  (SINUSl  ******* 

150  Y*INTCA*20*SINtX/l0*B>> 

153  REM  *♦ ♦PUNKTE  BERECHNEN, ZEICHNEN**** 

160  8 Y= (XAND504 >  *40*  < YAN0248  >  * l YAND7 ) : B I =ABS  <7- (XAND7 ) -C ) 

170  P0KE8A*B  Y.PEEK  ( BA  *BY)OR  ( 2  TB  I  J.-RETURN 
180  REM* *+**MBSCHlNENPROGRAr^l+++* ******* 

200  DATO  120, ISS,  127.141, 13, £20, ISS, 1 , 141,26.208,169,3,133,251 . 173,112 .192 

20 1  DATA  141 , 18-206 . 168 .24 , 141 , 17.20S . 173.20.3, 14 1 , 1 10 , 132 . 1 73,2 1 ,3,141,1 1 1 

202  DATA  192, ISS  .50 . 14 1 ,20 .3, 169, 192 .141  .21 ,3.38,36,173.25,208 . 141 ,25,208 

203  DATA4 1  .  1  ,240  ,43,198,251. 16,4,169  ,2 . 133,251 , 166,251 ,183,1  15,132,14-1  ,33 

204  OATAE08,  139,116,192,14  1. 17.208 ,189,121, 192 , 14 1,22 , 208 . 183, 124 ,192 , 141 

205  DATAS4 .206,183, 1 12 . 192, 14! , 18,208, 138,240,6, 104,168, 104 . 170,104,64 ,76 

206  DATA49 .234 ,49 . 170. 129 .0 ,6,0,59,27  ,59,24,8,8,24,20,24 
READY . 

Listing  1.  Gleichzeitige  Darstellung  von  Grafik,  Text  und  Mehrfarb-Bit-Map. 


Ausgabe  10/Oktober  1984 


Bisher  haben  wir  uns  mit  dem  Innenleben  unserer 


Computer  auseinandergesetzt  und  die  wichtigsten  Teile 
der  Hardware  kennengelernt.  Jetzt  kommen  wir  wie 
versprochen  zur  Software,  nämlich  zum  Assembler. 


Assembler-Kurs 


Sollten  Sie  einen  Assembler  ha¬ 
ben,  dann  schalten  Sie  ihn  jetzt 
bitte  ein.  Falls  Sie  keinen  haben, 
schaffen  wir  Abhilfe.  Wir  werden  in 
den  nächsten  Ausgaben  ein  kom¬ 
plettes  Software-Paket;  Assembler, 
Disassembler  und  Monitor  veröf¬ 
fentlichen.  Dieser  Assembler  wird 
uns  dann  den  ganzen  Kurs  hindurch 
begleiten.  Meistens  meldet  der  As¬ 
sembler  sich  mit  einer  Registeran¬ 
zeige,  Sollte  Ihrer  das  nicht  tun,  dann 
müssen  Sie  wohl  noch  den  Monitor 
anschalten  oder  speziell  einen  Be¬ 
fehl  für  die  Registeranzeige  einge¬ 
ben  (häufig  ist  das  ein  R).  Jedenfalls 
wird  nun  auf  dem  Bildschirm  der  In¬ 
halt  der  Register  angezeigt,  (Bild  1). 

Die  angezeigten  Werte  sind  Bei¬ 
spiele,  wie  sie  beim  C  64  auftreten 
können,  PC  ist  der  Programmzähler, 
der  immer  auf  den  nächsten  zu  ho¬ 
lenden  Befehl  zeigt.  (Der  Wert  $E147 
rührt  vom  SYS-Aufruf,  mit  dem  ich 
meinen  Assembler  starte).  IRQ  zeigt 
uns  an,  auf  welche  Adresse  der  so¬ 
genannte  Interrupt-Vektor  gestellt 
ist.  Das  ist  das  Byte-Paar  788  (LSB) 
und  789  (MSB).  Auf  den  Wert  $EÄ31 
zeigt  es  im  Normalfall. 

Die  nächsten  acht  Angaben  bezie¬ 
hen  sich  auf  das  Prozessorstatusre¬ 
gister,  das  wir  in  der  letzten  Folge  P 
genannt  haben.  Die  Bedeutung  der 
einzelnen  »Flaggen«  zeigt  Ihnen 
(Bild  2). 

AC  ist  der  aktuelle  Inhalt  des  Ak¬ 
kus. 

XR  zeigt  an,  was  im  X-Register  und 
YR  was  im  Y-Register  enthalten  ist. 
SP  (von  Stack-pointer = Stapelzeiger) 
gibt  uns  Auskunft  über  den  freien 
Platz  im  Stapelregister.  Damit  wis¬ 
sen  wir  genau,  was  in  diesem  Mo¬ 
ment  in  unserem  Computer  vorgeht. 
So  fremd  Ihnen  das  alles  im  Augen¬ 
blick  noch  vorkommt,  bald  werden 
Sie  mit  dieser  Registeranzeige  auf 
vertrautem  Fuß  stehen. 

Wie  sieht  ein  Assembler¬ 
programm  aus? 

Das  menschliche  Gehirn  hat  dem 
des  Computers  vieles  voraus.  Dazu 
gehört  es  beispielsweise,  daß  ein 
Mensch  allerlei  Dinge  gleichzeitig 
tun  kann:  gehen,  sprechen,  Musik 
hören,  lächeln,  Handbewegungen 
vollführen,  womöglich  dabei  auch 
noch  etwas  kauen  und  so  weiter.  Ein 
Computer  ist  dazu  nicht  imstande.  Er 
erledigt  eine  kleine  Aufgabe  nach 
der  anderen.  Weil  er  das  so  schnell 
macht,  hat  es  für  uns  den  Anschein, 
es  geschähe  alles  gleichzeitig.  Das 
Maschinenprogramm  ist  eine  Kette 


solcher  kleiner  Aufgaben,  Das  erste 
Glied  daraus,  das  wir  kennenlernen 
wollen  ist  der  Befehl 
LDA. 

Das  bedeutet:  Lade  den  Akkumu¬ 
lator.  Alle  Assembler-Befehlsworte 
bestehen  aus  drei  Buchstaben  wie 
dieser  hier  auch.  Wir  haben  in  der 
ersten  Folge  schon  gesagt,  daß  ei¬ 
nem  solchen  Befehl  eine  8-Bit- 
Codezahl  entspricht.  Das  ist  hier 
$A9  oder  binär  1010  1001  oder 
schließlich  dezimal  169.  Die  Code- 
Zahl  muß  in  einem  Speicherplatz 
stehen,  zum  Beispiel  in  $1500  (ent¬ 
spricht  dez.  5376).  Assembler- 
listings  sehen  dann  so  aus: 

1500  LDA 

Hier  tritt  also  die  Speicherplatz¬ 
nummer  mit  einem  nachfolgenden 
Befehl  anstelle  der  vom  Basic  ge¬ 
wohnten  Zeilennumn  . 

Hier  fehlt  noch  etwas  Entschei¬ 
dendes:  Was  soll  den  in  den  Akku 
geladen  werden?  Genauso  wie  es  in 
Basic  Befehle  gibt,  die  für  sich  allei¬ 
ne  stehen  können  wie  CLR  oder 
LIST,  gibt  es  auch  im  Assembler  sol¬ 
che  Befehle.  Weitaus  häufiger  aber 
sind  hier  Befehle,  die  ein  Argument 
erfordern  (in  Basic  zum  Beispiel 
PEEK(IOO)).  Dabei  ist  100  das  Argu¬ 
ment).  In  Assembler  gibt  es  zwei 
Sorten  von  Argumenten,  Solche,  die 
in  einem  Speicherplatz  unterzubrin¬ 
gen  sind  und  andere,  die  zwei  Bytes 
brauchen.  Mit  dem  Befehlswort 
(hier  also  LDA)  zusammen  gezählt, 
existieren  in  Assembler  also  1-Byte- 
Befehle,  2-Byte-Befehle  und  3-Byte- 
Befehle. 

Das  Argument  von  LDA  ist  also 
das,  was  in  den  Akku  soll.  Laden  wir 
also  mal  eine  1  in  den  Akku: 

1500  LDA  #$01 

Wir  haben  jetzt  einen  2-Byte- 
Befehl  erzeugt.  Was  aber  bedeuten 
#  und  $  dabei?  $  ist  leicht  zu  erklä¬ 
ren,  Die  große  Mehrzahl  der  As¬ 
sembler  nimmt  bei  Zahlenangaben 
Hexadezimalzahlen  an.  Bei  einigen 
muß  man  das  durch  das  $-Zeichen 
kennzeichnen,  Manche  Assembler 
lassen  auch  Binärzahlen,  Dezimal¬ 
zahlen  und  sogar  ASCII-Zeichen  als 
Argumente  zu.  Für  jede  Eingabeart 
steht  dann  vor  dem  Argument  ein 


Zeichen,  das  die  Art  des  Argumen¬ 
tes  angibt,  zum  Beispiel  häufig »!« für 
Dezimalzahlen  oder  %  für  Binärzah¬ 
len.  Nun  zum  # -Zeichen.  Es  gibt  vie¬ 
le  Arten,  den  Akku  zu  laden.  Direkt 
mit  einer  Zahl  —  wie  wir  hier  — ,  aber 
zum  Beispiel  auch  mit  dem  Inhalt  ei¬ 
nes  anderen  Speichers  und  so  wei¬ 
ter.  Man  spricht  von  der  sogenann¬ 
ten  Adressierung. 

Es  gibt  eine  ganze  Menge  davon 
und  jede  wird  auf  eindeutige  Weise 
gekennzeichnet,  Wenn  wir  in  unse¬ 
ren  Akku  eine  Zahl  laden,  dann  ist 
das  die  »unmittelbare«  Adressie¬ 
rung,  und  die  kennzeichnet  man  mit 
dem  # -Zeichen. 

Wenn  in  Speicherstelle  $1500  die 
Codezahl  für  LDA  steht,  dann  muß 
die  1  in  der  Speicherstelle  $1501  ste¬ 
hen,  wie  es  sich  für  einen  2-Byte-Be- 
fehl  gehört.  Wenn  Sie  nun  die  As¬ 
semblerzeile  eingegeben  haben 
und  (RETURN)  drücken,  dann 
taucht  auf  dem  Bildschirm  ...  eine 
Fehlermeldung  auf  (bei  vielen  As¬ 
semblern).  Wir  müssen  vorher  näm¬ 
lich  noch  unserem  Software-Instru¬ 
ment  sagen,  jetzt  zu  assemblieren. 
Wie  das  geschieht,  ist  auch  wieder 
von  Assembler  zu  Assembler  ver¬ 
schieden,  Die  meisten  erwarten, 
daß  man  vor  der  Zeile  noch  ein  A 
eingibt: 

A  1500  LDA  #$01 

Wenn  Sie  jetzt  (RETURN)  drücken, 
zeigt  der  Bildschirm: 

A  1500  LDA  #$01  Ä  1502 

und  meistens  einen  blinkenden 
Cursor,  der  auf  die  nächste  Eingabe 
wartet.  $  1502  ist  die  nächste  freie 
Speicherstelle,  und  wenn  beim  Pro¬ 
grammablauf  der  Programmzähler 
nach  dem  LDA  #$01  auf  $1502  deu¬ 
tet,  dann  erwartet  er  dort  den  näch¬ 
sten  Befehl.  Wenn  dort  Unsinn  steht, 
dann  stürzt  der  Computer  im  allge¬ 
meinen  ab,  je  nachdem,  welcher 
Code  dann  hier  zufällig  enthalten  ist. 
Wir  haben  ja  256  Möglichkeiten  da¬ 
für:  $00  bis  $FF.  Im  Gegensatz  zu  Ba¬ 
sic,  wo  man  durch  den  Interpreter 
die  Möglichkeit  hat,  Zeilennum¬ 
mern  zu  bauen  wie  man  will,  muß 
hier  das  Progamm  eine  ununterbro¬ 
chene  Perlenschnur  von  Befehlen  in 
Speicherstellen  sein.  Durch  einige 
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Befehle  läßt  sich  dieses  Prinzip  al¬ 
lerdings  durchbrechen. 

Damit  wir  die  Wirkung  von  Befeh¬ 
len  sehen  können,  greife  ich  auf  ei¬ 
nen  Befehl  vor,  der  ähnlich  dem 
STOP  in  Basic  einen  Programmab¬ 
bruch  bewirkt:  BRK.  Die  genaue 
Funktion  soll  erst  später  erklärt  wer¬ 
den,  aber  wir  sehen  jedenfalls 
dann,  wenn  ein  Maschinenpro¬ 
gramm  auf  einen  BRK-Befehl  läuft, 
die  Registerinhalte  angezeigt.  Das 
ist  in  den  meisten  Assemblern  ein¬ 
gebaut.  Wir  ergänzen  jetzt: 

A  1502  BRK 

Damit  erstmal  genug,  Steigen  Sie 
aus  dem  Assembler  aus,  und  starten 
Sie  das  Programm.  In  den  meisten 
Assemblern  geht  das  mit 
G  1500 

oder  sonst  von  Basic  aus  mit  SYS 
5376,  Jetzt  werden  wieder  die  Regi¬ 
ster  angezeigt.  Der  Programmzäh¬ 
ler  steht  auf  1503,  im  Akku  steht  01, 
alle  Flaggen  außer  der  Breakflagge 
sind  Null  (die  unbenutzte  Flagge 
steht  immer  auf  1).  Jetzt  ändern  wir 
das  Argument: 

A  1500  LDA  #$00 
A  1502  BRK 

Wir  starten  wieder  und  sehen  uns 
die  Register  an:  Programmzähler 
1503,  Akku  jetzt  00,  aber  bei  den 
Flaggen  hat  sich  etwas  verändert: 
Die  Zero-Flagge  ist  auf  1  gesetzt, 
Wir  sehen  also:  Diese  Flagge  bleibt 
solange  ungesetzt,  solange  nicht  ei¬ 
ne  Null  im  Akku  auftaucht,  erst  dann 
wird  sie  1. 

Noch  einmal  ändern  wir  das  Pro¬ 
gramm: 

A  1500  LDA  #$FF 
A  1502  BRK 

Nach  erneutem  Start  steht  das  Er¬ 
wartete  in  den  Registern,  nur  bei 
den  Flaggen  ist  etwas  Merkwürdi¬ 
ges  passiert:  Die  Vorzeichenflagge 
steht  auf  1.  Das  bedeutet,  im  Akku 
soll  eine  negative  Zahl  stehen!  Nun 
wissen  wir  aber,  daß  $FF  =  dez.  255 
ist.  Dieses  Rätsel  wird  uns  noch  eine 
Weile  begleiten.  Es  sei  hier  nur  be¬ 
merkt,  daß  kein  Fehler  vorliegt:  Im¬ 
mer  wenn  in  einer  Zahl  das  Bit  7 
gleich  1  ist,  geht  die  Vorzeichenflag¬ 
ge  auf  1.  Die  Lösung  des  Rätsels  wer¬ 
den  wir  bei  den  negativen  Binärzah¬ 
len  finden. 

Wir  schließen  aus  alledem:  Der 
LDA-Befehl  beeinflußt  die  Vor¬ 
zeichen-  und  die  Zeroflagge. 

Der  zweite  Assembler- 
befehl:  STA 

STA  heißt  »störe  accumulator«,  al¬ 
so  »lege  Akkuinhalt  ab«.  Wie  Sie  sich 
denken  können,  muß  auch  hier  ein 


Argument  auftauchen:  Nämlich  wo¬ 
hin  abgelegt  werden  soll.  Wir  legen 
unseren  Akkuinhalt  in  die  erste  Biid- 
schirmspeicherstelle  (C  64: $0400, 
VC  20  Grundversion:  $1E00,  VC  20 
mit  Erweiterung:  $1000),  Unser  Pro¬ 
gramm  muß  also  so  aussehen: 

A  1500  LDA  #$01 

A  1502  STA  $0400  oder  die  entspre¬ 
chende  Adresse  (siehe  oben). 

Mit  diesem  STA-Befehl  lernen  wir 
eine  neue  Adressierungsart  ken¬ 
nen:  Die  »absolute«  Adressierung. 
Sie  ist  daran  zu  erkennen,  daß  kein 
besonderes  Merkmal  verwendet 
wird,  Die  Adresse  $  0400  ist  nicht  in 
einem  Byte  darstellbar,  sondern 
wird  aufgeteilt  auf  zwei  Bytes.  Im 
Speicher  steht  jetzt: 

1500  LDA  # 

1501  $  01 

1502  STA 

1503  $  00  »das  ist  das  LSB« 

1504  $  04  »das  ist  das  MSB« 

Hier  liegt  also  ein  3-Byte-Befehl 
vor,  und  die  nächste  freie  Speicher¬ 
stelle  ist  $  1505. 

Vom  Basic  her  wissen  Sie,  daß  1 
der  Bildschirmcode  für  den  Buch¬ 
staben  A  ist,  und  daß  man  jeder  Bild¬ 
schirmspeicherstelle  auch  eine 
Bildschirmfarbspeicherstelle  zu¬ 
ordnet.  Um  ein  eingeschriebenes 
Zeichen  vom  Hintergrund  ^bzuhe- 
ben,  muß  man  dort  dann  eine  Farb¬ 
information  eingeben.  Der  Start  die¬ 
ses  Bildschirmspeichers  liegt  so: 

C  64  :$  D800 

VC  20  (Grund v,):  $9400 

VC  20  (Erw.  Vers.):  S9600. 


Bild  1.  Eine  Registeranzeige 


Bild  2.  Das  Prozessor-Status-Register  P:  die  Flaggen 


Der  Farbe  Schwarz  entspricht  die 
Code-Zahl  0.  Wir  ergänzen  unser 
Programm  durch: 

A  1505  LDA  #$00 
A  1507  STA  $D800  (oder  entspre¬ 
chender  Speicher,  siehe  oben).  Die 
nächste  freie  Adresse  ist  nun  $150A. 
Unser  Programm  soll  jetzt  abge¬ 
schlossen  sein.  Damit  der  Computer 
aber  beim  Programmzählerstand 
$150A  nicht  Unsinn  vorfindet,  muß  — 
ähnlich  wie  bei  END  in  Basic  —  das 
Programm  auf  irgendeine  Weise 
beendet  werden.  Das  kann  durch 
BRK  geschehen.  Wir  wollen  aber 
den  dritten  Assembler-Befehl  ken¬ 
nenlernen: 

RTS 

Das  heißt  »return  from  subrouti- 
ne«,  also  »Rückkehr  aus  Unterpro¬ 
gramm«.  In  unserem  Fall  bewirkt 
das  eine  Rückkehr  zum  Basic,  Wie 
Sie  sehen,  ist  das  ein  1-Byte-Befehl, 
also  ohne  Argument.  Auch  hier 
spricht  man  von  einer  Adressie¬ 
rungsart,  nämlich  der  »impliziten«- 
Adressierung.  Man  erkennt  sie  am 
Fehlen  des  Argumentes.  Die  Adres¬ 
se  ist  implizit,  das  heißt  im  Befehl 
selbst  enthalten.  Dies  ist  nämlich  ein 
Befehl,  der  immer  an  den  Pro¬ 
grammzähler  gerichtet  ist.  Der 
Computer  holt  sich  vom  Stapel¬ 
speicher  die  dort  zuoberst  liegende 
Adresse,  das  ist  die,  bei  der  der 
Computer  in  ein  Unterprogramm 
gesprungen  ist  oder  aber  die,  bei 
der  der  Computer  Basic  verlassen 
hat,  Wir  ergänzen  also  noch: 

A  150A  RTS 


PC  JRQ  NV-BDJZC  AC  XR  YR  SP 

E147  EA31  10110000  00  00  00  F8 
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und  starten  das  Programm,  zum  Bei¬ 
spiel  von  Basic  aus  mit  SYS  5376,  Na¬ 
türlich  taucht  dann  in  der  linken  obe¬ 
ren  Ecke  des  Bildschirmes  ein 
schwarzes  A  auf.  Hier  noch  der 
Basic-Lader: 

10  FOR  1  =  5376  TO  5386:READ 
A:POKE  I,A:NEXT  BEND 
20DATA  169,1,141,0,4*169,0,141,0,216* 
96. 

Die  mit  *  markierten  Zahlen  müs¬ 
sen  für  den  VC  20  verändert  wer¬ 
den:  Grund  Version:  30  und  148 
Erweiterung:  16  und  150. 

Eine  Kombination  von  LDA  mit 
STA  ist  vergleichbar  mit  dem  POKE- 
Befehl  in  Basic.  Man  kann  in  Assem¬ 
bler  nicht  direkt  eine  Zahl  in  einen 
Speicher  einschreiben,  sondern 
muß  den  Umweg  über  den  Akku 
machen.  Außer  dem  Akku  eignen 
sich  dazu  aber  auch  das  X-Register 
und  das  Y-Register.  Hierfür  gibt  es 
die  Befehle  LDX  (lade  X-Register), 
STX  (lege  X-Register-Inhalt  ab),  LDY 
lade  Y-Register)  und  schließlich  STY 
Oege  Y-Register-Inhalt  ab).  Sie  kön¬ 
nen  das  übungshalber  an  unseren 
kleinen  Programm  ausprobieren. 
An  dem  folgenden  Programm  se¬ 
hen  Sie  noch  eine  Eigenart  der  drei 
Register  (Akku,  X-Register,  Y- 
Register): 

A  1500  LDA  #$01 
A  1502  LDX  #$00 
A  1504  LDY  #$02 
A  1506  STA  $0400 
A  1509  STX  $D800 
A  150C  STY  $0401 
A  150F  STX  $D801 
A  1512  STA  $0402 
A  1515  STX  $D802 
A  1518  RTS 

Für  den  VC  20  werden  die  ent¬ 
sprechenden  Speicherstellen  für 
Bildschirm-  und  Bildschirmfarb- 
speicher  eingesetzt,  Dieses  Pro¬ 
gramm  druckt  —  wie  erwartet  — 
»ABA«  in  die  linke  obere  Ecke  des 
Bildschirms.  Dabei  ist  das  X- 
Register  dreimal  ausgelesen  wor¬ 
den  und  der  Akku  zweimal.  Sie  se¬ 
hen  also,  daß  die  Registerinhalte 
durch  die  STA-,  STX-,  STY-Befehle 
nicht  verändert  werden. 

Wir  wollen  noch  etwas  ausprobie¬ 
ren.  Bisher  haben  wir  den  LDA- 
Befehl  nur  mit  der  »unmittelbaren« 
Adressierung  kennengelemt.  LDA, 
LDX,  LDY  können  auch  »absolut« 
adressiert  werden. 

A  1518  LDA  $D800 

Damit  laden  wir  den  Inhalt  der 
Speicherstelle  $  D800  (beim  VC  20 
die  anderen  Adressen  des  Bild- 
schirmfarbspeichers)  in  den  Akku. 
Der  Inhalt  ist  seit  $1509  eine  Null, 
jetzt  weiter: 


A  151B  STA  $0403 
A  151E  STX  $D803 
A  1521  RTS 

Das  müßte  beim  Ablauf  des  Pro¬ 
gramms  noch  einen  Klammeraffen 
(@mit  Bildschirmcode  0)  an  die  vier¬ 
te  Stelle  plazieren,  was  Sie  durch 
SYS  5376  leicht  nachprüfen  können. 
Sie  sehen,  daß  man  mit  diesen  sie¬ 
ben  Befehlen  schon  eine  Menge  an¬ 
fangen  kann. 

Wir  kommen  noch  einmal  zur 
Adressierung.  Ich  hatte  Ihnen  ge¬ 
sagt,  daß  LDA  #$01  ein  2-Byte- 
Befehl  mit  unmittelbarer  Adressie¬ 
rung  ist  (ein  Byte  für  LDA  und  eines 
für  01),  LDA  $D800  ist  ein  3-Byte- 
Befehl  (ein  Byte  für  LDA,  je  eines  für 
das  LSB  und  das  MSB  von  $D800)  mit 
absoluter  Adressierung.  Da  werden 
Sie  sich  doch  sicher  schon  gefragt 
haben,  wo  bleibt  die  Adressierung! 
Wenn  aber  kein  Byte  für  die  Adres¬ 
senmarkierung  (zum  Beispiel  #)  re¬ 
serviert  ist,  muß  die  Kennzeichnung 
irgendwie  anders  sein.  Wenn  Sie  ei¬ 
nen  Disassembler  zur  Verfügung 
haben,  dann  sehen  Sie  sich  damit 
unser  Programm  an.  Fast  jeder  Dis¬ 
assembler  gibt  neben  dem  Assem¬ 
blertext  auch  Byte  für  Byte  in  Hexa¬ 
dezimalzahlen  die  Codes  an.  Wenn 
Sie  nun  die  beiden  Befehle  LDA 
#  $01  und  LDA  $d80Ö  von  den  Codes 
her  untersuchen,  sehen  Sie  folgen¬ 
des: 

1500  A9  01  LDA  #$01 
und 

1518  AD  00  D8  LDA  $D800 

Offensichtlich  gehört  jeweils  das 
erste  angezeigte  Byte  zu  LDA.  Sie 
sind  aber  verschieden!  Wir  sehen 
daraus,  daß  die  Codezahl  für  einen 
Befehl  gleich  zwei  Informationen 
enthält:  Das  Befehlswort  selbst 
(LDA)  und  die  Adressierungsart. 

Genauso  wie  man  LDA  sowohl  un¬ 
mittelbar  als  auch  absolut  ausführen 
kann,  ist  das  auch  mit  LDX  und  LDY 
möglich.  Beiden  Befehlen  STA,  STX, 
STY  ist  eine  unmittelbare  Adressie¬ 
rung  sinnlos.  Für  RTS  kennt  man  nur 
eine  implizite  Adressierung,  Wir 
fassen  das  alles  zusammen  in  Bild  3. 

In  den  letzten  Spalten  von  Bild  3  ist 
noch  angegeben,  inwieweit  durch 
diese  Befehle  das  Prozessorstatus¬ 
register  beeinflußt  wird,  so  wie  wir 
es  für  den  Befehl  LDA  schon  auspro¬ 
biert  haben.  In  der  vorletzten  Spalte 
sehen  Sie,  wie  lange  die  Ausführung 
eines  Befehls  dauert.  Wenn  sie  für 
einen  Taktzyklus  etwa  eine  Mikro¬ 
sekunde  rechnen,  dann  müßten  Sie 
jetzt  ausrechnen  können,  wie  lange 
unser  letztes  Programm  zur  Bear¬ 
beitung  braucht:  48  Mikrosekun¬ 


den.  Em  vergleichbares  Basic- 
Programm  braucht  dazu  etwa  hun¬ 
dertmal  so  lange:  zirka  0,05  Sekun¬ 
den. 

Ein  bißchen  von  Assembler- 
Alchimie  verstehen  Sie  jetzt  schon 
mit  diesen  sieben  Befehlen.  Wir 
wollen  uns  nun  die  Zahlen  ansehen, 
die  hier  Verwendung  finden:  Das  Bi¬ 
närsystem  und  das  Hexadezimalsy¬ 
stem. 

Die  einzigen  Ziffern,  die  unser 
Computer  kennt,  sind  0  und  1.  Sie 
stehen  für  »Strom  an«  oder  »Strom 
aus«,  oder  für  »keine  magnetische 
Erregung«  oder  »magnetische  Erre¬ 
gung«.  Deswegen  ist  es  für  uns  als 
angehende  Assembler-Alchimisten 
von  großer  Bedeutung  —  wir  arbei¬ 
ten  ja  ganz  eng  an  der  Hardware  — 
dieses  binäre  Zahlensystem  hand¬ 
haben  zu  können.  Das  Hexadezimal¬ 
system  kennt  der  Computer  eigent¬ 
lich  gar  nicht.  Wir  verwenden  es, 
weil  es  in  einem  besonders  engen 
Zusammenhang  mit  Binärzahlen 
und  dem  Aufbau  unseres  Compu¬ 
ters  steht:  Die  größte  einstellige 
Hex-Zahl  ist  $F,  das  entspricht  genau 
1111  im  Binärsystem,  also  dem  maxi¬ 
malen  Füllungsgrad  eines  halben 
Bytes,  das  Nibble  genannt  wird.  Ein 
ganzes  Byte  kann  maximal  $FF  ent¬ 
halten  (binär  1111  1111)  und  der  ge¬ 
samte  Speicheradressenbereich 
unseres  Computers  geht  bis  $FFFF 
(dezimal  65535).  Eine  einstellige 
Hex-Zahl  paßt  also  in  ein  Nibble,  ei¬ 
ne  zweistellige  in  ein  Byte  und  eine 
dreistellige  oder  vierstellige  in  zwei 
Bytes,  weshalb  man  solche  Hex- 
Adressen  auch  recht  leicht  in  das 
LSB  und  das  MSB  aufteilen  kann: 

$  D8  00 

MSB  LSB 

Rechnen  werden  wir  mit  Hexade¬ 
zimalzahlen  nicht,  dazu  benutzen 
wir  dann  das  Dezimalsystem  oder  — 
wenn  es  sich  um  computerinterne 
Vorgänge  handelt  —  das  Binärsy¬ 
stem. 

Das  Rechnen  mit  Binärzahlen 
funktioniert  genauso  wie  das  mit  De¬ 
zimalzahlen.  Es  gilt  also 
0  +  0  =  0 
0+1  =  1 
1  +  0  =  1 
1  +  1  =  10 

wobei  binär  10  gleich  dezimal  2  ist. 
Als  Beispiel  können  wir  mal  2  +  1  =  3 
im  Binärsystem  rechnen: 

10  entspricht  dez,  2 
+  01  entspricht  dez,  1 

11,  was  ja  dezimal  3  ergibt. 

Die  Addition  erfolgt  also  spalten¬ 
weise  wie  beim  gewohnten  dezima- 

Fortsetzung  Seite  179 
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Das  Diskettenlaufwerk  VC  1541  ist  der  Renner  unter 
den  Massenspeichern.  Doch  mit  der  passenden  Litera¬ 
tur  hapert  es.  Deshalb  beschränken  sich  die  meisten 
Anwender  auf  das  Speichern  und  Laden  von  Program¬ 
men.  Mit  diesem  Kurs  lernen  Sie,  Ihre  Floppy  effektiv 
auszunützen  und  schließlich  zu  manipulieren. 


Daß  die  1541  ein  sehr  wandelba¬ 
res  Gerät  ist,  werden  die  mei¬ 
sten  Benutzer  wohl  wissen  oder 
zumindest  erahnen.  Man  denke  ja 
nur  an  den  »Kleinkrieg«  zwischen 
Softwareherstellern  und  Softwarepi¬ 
raten,  die  sich  gegenseitig  das  Le¬ 
ben  schwer  machen.  Die  meisten 
»Schlachten«  liefert  man  sich  hier  im 
Inneren  der  Floppy,  die  viel  raffi¬ 
niertere  Methoden  des  Programm¬ 
schutzes  anbietet  als  der  Commodo- 
re  64. 

Aber  auch  solche  Programme, 
wie  das  HYPRA-LOAD,  das  Sie 
ebenfalls  in  dieser  Ausgabe  als  Li- 
sting  des  Monats  finden,  beweisen 
die  Flexibilität  der  1541.  Doch  wie 
bei  so  vielen  Dingen  in  der 
Commodore-Welt  sind  auch  hier  die 
Informationen  rar,  beziehungsweise 
in  den  Handbüchern  gar  nicht  vor¬ 
handen.  So  wollen  wir  uns  mit  Ihnen 
an  die  Floppy  heran-  und  in  sie  hin¬ 
eintasten.  Angefangen  bei  grundle¬ 
genden  Informationen  über  den 
Diskettenaufbau  und  den  Befehls¬ 
satz  der  Floppy  werden  wir  Schritt 
für  Schritt  in  deren  Möglichkeiten 
zur  Programmierung  und  Manipula¬ 
tion  hinabtauchen.  Was  wird  benö¬ 
tigt? 

Nun,  außer  einem  C  64  und  einer 
VC  1541,  »nur«  Basic-Erfahrungen, 
gmndlegende  Kenntnisse  in  Ma¬ 
schinensprache  (für  spätere  Folgen) 
und  ein  wenig  Geduld. 

Bevor  wir  jedoch  mit  unserer  er¬ 
sten  Tauchfahrt  beginnen,  tippen 
Sie  bitte  das  beigefügte  Programm 
EDDI  (Listing  1)  ein,  sofern  Sie  nicht 
über  einen  eigenen  Disk-Monitor 
verfügen.  Auf  die  Bedienung  von 
EDDI  wird  im  Einzelnen  eingegan¬ 
gen. 

Sehen  wir  uns  jetzt  erst  einmal  so 
eine  Diskette  an;  die  folgenden  Er¬ 
läuterungen  beziehen  sich  auf  eine 
formatierte  Diskette. 


Aufbau  einer  Diskette 

Die  Diskette  ist  in  35  konzentrische 
Spuren  (englisch:  Tracks)  aufgeteilt, 
Diese  Spuren  enthalten  wiederum 
jede  eine  bestimmte  Anzahl  von 
Sektoren,  die  von  außen  nach  innen 
abnimmt.  Die  genauen  Zahlenver¬ 
hältnisse  stehen  in  Tabelle  1, 

Die  Spuren  sind,  beginnend  mit 
der  äußeren  Spur,  von  1  bis  35 
durchnumeriert,  Die  Selo  .  on  sind 
auf  den  Spuren  in  numeriscner  Rei¬ 
henfolge  gegen  den  Uhrzeigersinn 
angeordnet.  Jeder  Sektor  enthält  ei¬ 
nen  Block,  das  sind  256  Bytes,  an  In¬ 
formation.  Es  kann  jeder  der  683 
Blöcke  auf  der  Diskette  durch  Anga¬ 
be  der  jeweiligen  Spur-  und  Sektor¬ 
nummer  aufgerufen  werden.  Aller¬ 
dings  stehen  davon  dem  Benutzer 
normalerweise  nur  664  Blocks  zur 
Verfügung,  da  das  Betriebssystem 
der  Floppy  die  Spur  18  für  sich  be¬ 
schlagnahmt. 

Für  die  nun  folgenden  Versuche 
wäre  es  sinnvoll,  eine  Diskette  neu 
zu  formatieren,  mit  der  wir  ein  biß¬ 
chen  »spielen«  können.  Sehen  wir 
uns  nun  erst  einmal  das  Directory  an 
(LOAD  ”$”,8), 

In  der  ersten  Zeile  stehen  die  Dri¬ 
venummer  (hier  immer  0)  und  dor 
Name  der  Diskette,  sowie  die  ID  und 
das  Formatkennzeichen  (genaueres 
später). 

Die  zweite  Zeile  enthält,  da  sich 
kein  File  auf  der  Diskette  befindet, 
die  Meldung  »664  BLOCKS  FREE«. 

Erste  Versuche  mit  EDDI, 
dem  Disk-Monitor/Editor 

Da  sich  diese  Informationen  auf 
der  schon  erwähnten  Spur  18  befin¬ 
den,  wollen  wir  uns  diese  Spur  mit 


EDDI  gleich  einmal  etwas  genauer 
ansehen.  Laden  Sie  den  Editor  und 
legen  Sie  unsere  »Spieldiskette«  ein; 
danach  starten  Sie  mit  RUN. 

Als  Kommando  tippen  Sie  F3  für 
»BLOCK  LESEN«.  Danach  geben 
Sie,  durch  Komma  getrennt,  die 
Spur  und  Sektornummer  des  ge¬ 
wünschten  Blocks  ein;  in  unserem 
Fall  »18,0«. 

Nach  dem  Ladevorgang  meldet 
sich  EDDI  mit  Byte  0  der  ersten  von 
16  Seiten,  zu  je  16  Bytes.  Drücken  Sie 
jetzt  RETURN,  um  die  erste  Seite  an¬ 
zuzeigen,  welche  wir  nun  betrach¬ 
ten  wollen. 

Es  sollte  vielleicht  erwähnt  wer¬ 
den,  daß  die  Zählung  von  Blöcken 
und  Bytes  grundsätzlich  bei  Null  be¬ 
ginnt.  Den  eingeladenen  Block  be¬ 
zeichnet  man  als  BAM  (Block  Availa- 
bility  Map),  auf  deutsch  etwa  »Block¬ 
belegungsplan«,  Dieser  Plan  gibt 
an,  welche  Blöcke  auf  der  Diskette 
frei  und  welche  schon  beschrieben 
sind.  Ferner  enthält  er  den  Namen 
der  Diskette,  die  ID,  das  Format¬ 
kennzeichen  und  den  Beginn  des 
Directory. 

Die  ersten  beiden  Bytes  (0,1)  die¬ 
ses  Blocks  enthalten  Spur  und  Sek¬ 
tor  des  ersten  Directory blocks;  nor¬ 
malerweise  »18,1«  (siehe  auch  Tabel¬ 
le  2). 

Byte  2  enthält  das  Formatkennzei¬ 
chen  (hier  65,  beziehungsweise  »A«), 
Zur  Erklärung:  Commodore  stellt  ja 
verschiedene  Laufwerke  her,  zum 
Beispiel  1541,  3040,  8050,  8250...  Die¬ 
se  Laufwerke  unterscheiden  sich 
fast  alle  im  Aufzeichnungsformat, 
das  heißt  Anzahl  und  Verteilung  der 
Spuren  und  Sektoren;  so  hat  die 
CBM  8050  77  Spuren  mit  bis  zu  29 
Sektoren,  was  deren  höhere  Spei¬ 
cherkapazität  zur  Folge  hat.  Solche 
Disketten  können  verständlicher¬ 
weise  von  der  1541  weder  gelesen 
noch  beschrieben  werden.  Am  For¬ 
matkennzeichen  »A«  erkennt  die 
1541  nun  Disketten  ihres  eigenen 
Formats;  ist  dieses  nicht  identisch,  so 
beschwert  sich  die  Floppy  mit  einer 
Fehlermeldung.  Eine  Ausnahme 
dieser  Regel  bildet  die  Lesekompa¬ 
tibilität,  die  besagt,  daß  eine  »frem¬ 
de«  Diskette  zwar  gelesen,  aber 
nicht  beschrieben  werden  kann 
(zum  Beispiel  3040  auf  1541). 

Byte  3  steht  generell  auf  Null,  da 
es  bei  der  1541  keine  Funktion  er¬ 
füllt. 
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Die  Bytes  4  bis  143  enthalten  nun 
die  eigentliche  BAM,  deren  Format 
ein  wenig  kompliziert  ist:  Für  jede 
Spur  sind  4  Bytes  reserviert,  wobei 
das  jeweils  erste  Byte  die  Anzahl 
der  noch  freien  Blöcke  auf  dieser 
Spur  angibt.  Die  folgenden  drei  By¬ 
tes  müssen  wir  als  eine  Gesamtheit 
von  24  Bits  betrachten,  wobei  jedes 
gesetzte  Bit  einen  freien  Block  si¬ 
gnalisiert;  siehe  auch  Tabelle  3. 

Um  auch  die  folgenden  Seiten  des 
Blocks  zu  betrachten,  drücken  Sie 
zum  Vorwärtsblättern  Fl;  die  weitere 
Bedienung  ist  analog  zur  oben  be¬ 
schriebenen.  Rückwärtsblättern  ist 
durch  Drücken  von  F2  möglich. 

Fahren  Sie  nun  bis  zum  Byte  144 
vor  und  sehen  Sie  sich  die  Seite  an. 

Die  Bytes  144 bis  161  enthaltenden 
Namen  der  Diskette,  der  beim  For¬ 
matieren  festgelegt  wird.  Direkt  im 
Anschluß  daran  folgen  die  Bytes 
162,163,  die  die  ID  im  ASCII-Code 
beinhalten,  gefolgt  von  einem  »Shift 
Space«.  An  der  ID  erkennt  die  Flop¬ 
py,  ob  die  Diskette  gewechselt  wur¬ 
de;  deshalb  sollte  jede  Diskette  eine 
andere  ID  haben. 

Byte  165  und  166  enthalten  DOS- 
Version  und  Formatkennzeichen, 
hier  normalerweise  »2A«,  wiederum 
gefolgt  von  einem  »Shift  Space«. 

Die  Bytes  171  bis  255  haben  nor¬ 
malerweise  keine  Bedeutung  und 
können  unterschiedlich  gefüllt  sein. 


Wie  sieht  das  Inhaltsver¬ 
zeichnis  aus? 


Auf  unserer  Entdeckungsreise 
durch  Spur  18  folgen  wir  jetzt  der 
Angabe  in  den  ersten  beiden  Bytes 
und  laden  den  ersten  Directory¬ 
block  (F3;  18,1).  Das  Format  des 
Blocks  ist  der  Tabelle  4  zu  entneh¬ 
men.  Jeder  Direktoryblock  enthält 
acht  File-Einträge  und  den  Zeiger 
auf  den  nächsten  Direktoryblock 
(Byte  0  und  1);  ist  die  Tracknummer 
des  nächsten  Blocks  0,  so  war  der 
gelesene  Directoryblock  der  letzte, 
und  das  zweite  Byte  zeigt  die  Anzahl 
der  hier  benutzten  Bytes  an.  In  unse¬ 
rem  Fall  stehen  hier  0  und  255. 

Nun  zu  Tabelle  5,  die  das  Format 
eines  Directoryeintrags  darlegt:  Je¬ 
der  dieser  Einträge  besteht  aus  30 
Bytes,  wobei  das  erste  den  Filetyp 
(siehe  Tabelle  6),  die  beiden  nach- 
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sten  Spuren  und  Sektoren  des  er¬ 
sten  Fileblocksund  die  16  folgenden 
Bytes  den  Filenamen  enthalten.  Die 
folgenden  3  Byte  werden  nur  bei  re¬ 
lativen  Dateien  verwendet;  sie  wer¬ 
den  später  im  einzelnen  noch  be¬ 
sprochen. 

Byte  26  und  27  enthalten  Track 
und  Sektor  des  neuen  Files,  falls  das 
alte  mit  »@«  überschrieben  wurde. 
Die  Bytes  28,29  schließlich  geben 
die  Anzahl  der  belegten  Blöcke  die¬ 
ses  Files  an. 


Die  einzelnen  Datei-Typen 
der  Floppy 

Diese  bis  jetzt  beschriebenen  An¬ 
gaben  werden  vom  Betriebssystem 
der  Floppy,  also  vom  DOS  (englisch: 
Disk  Operating  System)  verwaltet. 

Beschäftigen  wir  uns  nun  mit  den 
restlichen  Blöcken  auf  der  Diskette, 
die  dem  Anwender  z. i ■  üreien  Verfü¬ 
gung  stehen,  denn  dort  werden  die 
einzelnen  Files  abgespeichert,  de¬ 
ren  Aufbau  uns  jetzt  interessiert. 

DEL-Files: 

Diese  Fileanzeige  existiert  norma¬ 
lerweise  nicht  im  Directory;  wird  ein 
File  gelöscht,  so  wird  dieses  nicht 
mehr  angezeigt;  das  Byte  des  File- 
typs  steht  dann  auf  0.  Durch  setzen 
des  Filetyps  auf  128  (hex.  $80)  kann 
eine  DEL-Anzeige  jedoch  erzwun¬ 
gen  werden. 

SEQ-Files: 

Dieser  Filetyp  dient  zur  Speiche¬ 
rung  von  Daten  auf  Diskette  (im  Ge¬ 
gensatz  zur  Programmspeiche¬ 
rung).  Der  Aufbau  dieses  Filetyps  ist 
relativ  einfach:  Die  ersten  beiden 
Bytes  eines  Datenblocks  zeigen  je¬ 
weils  auf  den  nächsten  Block  im  File; 
so  erfolgt  eine  beliebig  lange  Block¬ 
verkettung  auf  der  Diskette.  Da  aber 
auch  das  schönste  File  einmal  zu  En¬ 
de  geht,  muß  der  letzte  Block  ge¬ 
kennzeichnet  sein.  Dies  erfolgt,  wie 
schon  beim  Directory  durch  eine  0 
als  Spurnummer.  Die  Sektornum¬ 
mer  bezeichnet  jetzt  die  Anzahl  der 
belegten  Datenbytes  dieses  Blocks. 
Diese  Art  der  Verkettung  von 
Blöcken  wird  bei  allen  Filetypen 
vorgenommen!  Die  restlichen  254 
Bytes  jedes  Blocks  enthalten  die  Da¬ 
ten, 


USR-Files 

USR-Files  stimmen  im  Aufbau 
exakt  mit  den  SEQ-Files  überein,  sie 
haben  jedoch  noch  Zusatzfunktio¬ 
nen  im  DOS,  auf  die  ein  anderes  Mal 
eingegangen  werden  soll. 


PRG-Files 

PRG-Files  stellen  den  häufigsten 
Filetyp  dar.  Sie  dienen  der  Speiche¬ 
rung  von  Programmen  auf  der  Dis¬ 
kette  und  haben  nahezu  den  selben 
Aufbau  wie  SEQ-Files.  Der  einzige 
Unterschied  besteht  in  den  Bytes  2 
und  3  des  ersten  Blocks,  welche  die 
Startadresse  des  Programms  im 
Computer  enthalten.  Ist  diese 
Adresse  gleich  der  Adresse  des 
Basic-Anfangs,  also  2049  ($0801),  so 
können  die  Programme  mit  »LO- 
AD"Name”,8«  geladen  werden;  die¬ 
ser  Modus  ignoriert  die  Anfangs¬ 
adresse  auf  Diskette  und  lädt  die 
Programme  generell  an  den  Basic- 
Anfang  (sogenanntes  relatives  La¬ 
den).  Sollen  Programme  jedoch  an 
anderen  Stellen  im  Speicher  stehen, 
zum  Beispiel  Maschinenprogram¬ 
me,  so  muß  diese  angegebene 
Adresse  als  Startadresse  benutzt 
werden;  man  lädt  hier  absolut  mit 
»LOAD”Name”,8,l«. 

REL-Files: 

Dieser  Filetyp  ist  im  Aufbau  un¬ 
gleich  komplizierter  als  die  eben 
besprochenen;  es  soll  daher  zuerst 
kurz  auf  die  Arbeitsweise  von  REL- 
Fües  eingegangen  werden.  Se¬ 
quentielle  Files  haben  den  Nachteil, 
daß  sie  praktisch  nur  aus  einem  Da¬ 
tensatz  bestehen.  Sucht  man  nun, 
zum  Beispiel  in  einer  Kartei,  eine  be¬ 
stimmte  Hausnummer  oder  einen 
bestimmten  Namen,  so  muß  der  ge¬ 
samte  Datensatz  durchgelesen  wer¬ 
den,  um  die  entsprechende  Stelle  zu 
finden.  In  einer  relativen  Datei  geht 
man  deshalb  einen  anderen  Weg, 
um  jede  Stelle  schnell  auffinden  zu 
können. 

Es  existiert  eine  beliebige  Anzahl 
(zum  Beispiel  100)  von  Datensätzen, 
wobei  alle  Datensätze  die  gleiche 
Länge  haben  müssen  (maximal  254 
Zeichen). 

Das  DOS  legt  jetzt  einen  soge¬ 
nannten  Side-Sektor  an,  der  aus  bis 
zu  sechs  Blöcken  bestehen  kann. 
Diese  Blöcke  enthalten  nun  die  Zei¬ 
ger  auf  sämtliche  Datenblöcke,  in 
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denen  die  Datensätze  gespeichert 
sind  (1  Datensatz  hat  maximal  1 
Block  Länge),  Auch  hier  sind  die  Da¬ 
tenblöcke  wieder  durch  Zeiger  in 


10  REMEDDI  -  DISKMONITOR/EDITOR 

20  REM  VON 

30  REMKARSTEN  SCHRAMM  1984 

40  : 

50  PRINT""®" : POKE53230, 14: PGKE53281 , 14 

60  GGSUB 10000 

70  OPEN1 , 8, 15, " 10" : 0PEN2 ,8,2, 

80  PRINT "L'J  EDDI  -  HAUPTMENUE" 

85  MET“ "BYTE  DEC  HEX  BIN 

ASC" : POKE650 , 128 

100  PRINT: PRINT: PRINT 

110  PRINT" (Fl)  -  SCROLLING  VGRWAERTS" : PR 

INT 

120  PRINT" (F2)  -  SCRÜLL INS  RUECKWAERTS" : 

PRINT 

130  PRINT" (F3)  -  BLOCK 

LESEN": PR INT 

140  PRINT" (F4)  -  BLOCK 

SCHREIBEN"  :  PRINT 

150  PRINT" (F5)  -  EDITOR  EINSCHALTEN" : PRI 

NT 

160  PRINT" (F6)  -  DISKETTE  WECHSELN" : PRIN 

170  PRINT" (F7)  -  RUECK 

(EHR  INS  MENUE" : FR 

INT 

1S0  F'RINT"  <F8)  -  PROGRAMMENDE" 

190  F’0=1 :  GOTO  9000 

1000 

REM  EDDI  AN 

1310 

X=0: Y=0 

1023 

F0RY=ET025  5STEP 1 6 

1030 

F'Q=2:  FR  INT  "CEDI  TOR-MODUS  FUER  TRACK 

"T"  SEKTOR "S 

1340 

F'R  I  NT :  PR  I N  THE* :  PR  I  MT 

1050 

FQRX=YTGY+ 15: PRINTX : NEXTX 

1060 

F'R  I  NT  "l®SSS£8l"  :  FGRX= 

YTOY+15 

1065 

DA=F'EEK  (50000+X )  : 

3OSU87030: PRINTX, C 

US 

1070 

INPUT"G&9B>!HBEä»9J"  : 

IN*-:  I F I N*= " "  THEN  1 0 

92 

1072 

IFLEFTTC  INT,  !)="  ■; 

•THENF'R  INT"  «SISKffiWIKl 

" : BOTD9B03 

1373 

IFLEFT*  ( INT,  1  >="■(- 

'  THENF'R  I  NT  " 

": GOTO 11 25 

1075 

DA=VAL (LEFT T ( IMS , 

3) > : IFDA>2550RDA<E 

THENF'R I NT " CE1."  :  GOTO  1065 

1080 

POKE50000+ X , DA 

1120 

NEXTX: PR INT 

1125 

PR INT "EINGABE  ?“; 

1130 

SETAT: IFA*=" "THEN1 130 

1143 

I  FAS“  "l!ü"THEN  1203 

1150 

I FAT = "E" THEN 1 303 

1160 

IFAT-O"  "THENNEXTY 

1  170 

PQ= 1 : GOTC9000 

1200 

F'R I NT "SMSffi"  :  PRINTE " . ??? " 

1210 

SETAT : I FAT  =  " " THEN 1210 

1215 

I F AT= "E" THEN 1300 

1220 

I  FAT  '  >  "  as"  THEN  1 020 

1233 

E=E+16: IFE>255THENE=0 

1243 

GOTO  1200 

1303 

F'R  I  NT"M.S>!li!"  :  F'R  INTE" . ???  " 

1313 

SETAT:  Ir  AT-="  "THEN  131 3 

1315 

IFA$="  st“  THEN  120S 

1  322 

I  FM<  >  "  BS"  THEN  1 E2S 

1333 

E=E- 16: IFEK0THENE 

=240 

1340 

GOTO 1303 

2030 

REH  D ISKETTENWECHSEL 

2010 

F'R  INT  "“BITTE  NEUE 

DISKETTE  EINLEGEN 

2020 

BETA*: IFA*-" "THEN 

2020 

2033 

RUN 

3333 

REM  BLOCK  READ 

3313 

P0=2: PRINT "Ci  BLOCK  LESEN” : PRINT: P 

fit  NT 

3323 

INPUT "TRACK,  SEKTOR  ";T,S 

3323 

I FT< 1ORT>35THEN3010 

3330 

FR INT 41 , "U 1  2  0” T 

;  S 

3335 

IF5T< 70THENPRINT: 

GOTO9000 

3040 

F'RINTöl  ,  "B-P.  2  0" 

3050 

SYS49152: E=0: X=G: 

Y=0: GOTO5010 

3360 

F0RY=ET0255STEP16 

33 7 E 

PRI NT "LT RACK" T "  SEKTOR" S 

3380 

PR  I  NT :  F'R  I NTHET :  PR  INT 

3090 

FORX=YTOY+ 15: DA=PEEK (53033+ X) : G03UB 

7030 

PRINTX, OUT: NEXTX 

3100 

SOTO9003 

4030 

REM  BLOCK  WRITE 

43 1 0 

F’G=  1 :  PRINT  :  PR  INT  : 

INPUT  "U-TRACK,  SEK 

TOR" 

T,  S:  PRINT"  Sä" 

4020 

F'RINTöl  .  "B-F'  2  3' 

4E30 

SYS49177 

Listing  1.  EDDI, 


den  Bytes  0  und  1  verkettet,  Den  Auf¬ 
bau  eines  Side-Sektor-Blocks  zeigt 
Tabelle  7.  Zum  besseren  Verständ¬ 
nis  hier  ein  kleines  Beispiel: 


4043  F'RINTSl ,  "U2  2  0"T;S 
4050  GOTO900E 
5003  REM  SCRDLL  FORWARD 
5010  E=X:  IFE;255THENX=0:E=0 
5023  PR  INT"  rJTRACK  "  T  "  SEKTOR"  S 
5030  PRINT: PRINTHE*: PRINT 

5040  DA=PEEK (50E00+E) : GOSUB7030: PRINTE, 0 
US 

5050  X=X+16 

5060  GETA*; IFA*=" "THEN5060 

5070  IFA*="M"THENS010 

5075  IFA#="K“THENX=X— 16 :  GQTO601 0 

5077  IFAS="!m"THEN1000 

5080  GOTO3060 

6000  REM  SCKQLL  BACKWARD 

6010  E=X: IFE<0THENE=240:  X=240 

6020  PR I NT " GTTRACK " T "  SEKTOR" S 

603 0  PRINT: PRINTHE*: PRINT 

6040  DA=PEEK (50000+E) : GOSUB7030: PRINTE , 0 

US 

6050  X=X— 16 

6060  BETAS: IFAS=" "THEN6060 
6070  IFA*="H"THEN6010 
6375  IFAS="S5"THENX=X+16:  GOTO5010 
6077  IFA*="I3"THEN1000 
60B0  GOTO3060 

7330  REM  BEREITSTELLUNG  DES  STRINGS 
7310  REM  DA/DAS  SIND  AUSGABEWERTE 

HS,DS,BS,CS  SIND  ZWISCHENWERTE 
7020  REM  OU , QUS  SIND  ENDERGEBNISSE 
7030  I FDA  >  3 1 ANDD A<  1 2S0RD A  >  1 59 ANDD A<  256TH 

7040  XXS="000" : DS=RISHTS (STR* (DA)  , LEN (ST 
RS (DA) )-l) 

7045  DS=LEFTS(XXS,3-LEN(DS) ) +D* 

7253  XXS=" 1 234567S9ABCDEF " : HS=" " 

7360  HH= I NT ( DA / 1 6 ! :HL=DA-HH*16 

7070  IFHHTHENHS=HS+M I DS ( X  XS , HH , 1; : GOTO70 

30 

7075  H*=HS-+"3" 

7030  IFHLTHENH*=H*+MID* ( XXS , HL ,  1  i  :  GOTO70 
90 

7395  H*=H*+"0" 

7090  B*="”:F0RQ=7T0GSTEP-1 

7100  IF (DA AND (2 i Q > ) <  >0THENBS=BS+" 1 " : NEXT 

: G0T071 IS 

7105  B*=B*+"0":NEXT 

7110  OU*=D*+"  "+H*+"  "+B*+"  "+C* 

7123  RETURN 
S999  END 

9020  REM  GET  KOMMANDO 
9010  PRINT: PR INT "KOMMANDO  ? 

9320  PRINT"!!  Fs"  : : F0RW=1T075: GETKOS: IFKOS< 
>" "THEM9093 
903ß  NEXTW 

9040  PRINT"3i;S5£?"  ;  :  FQRW=1TQ75:  GETKOS  :  IFKO 

*•<>"  "THEN9390 

9050  NEXTW 

9060  GOTO9020 

9090  IFKOS— 7HEN9200 

9100  IF  ASC (KOS) >14E0RASC (KOS) s 133THEN9E 
20 

9110  KO=ASC(KOS) -132 

9120  ON  PO  GOTO? 130, 9 140, 23333 

9130  ON  KO  G0T09S23 , 3333 , 1333,50,9020,40 

33 , 2333 , 23333 

7140  ON  KO  SOTC3E00,300S, 1000,80,6300,40 

30,2323,23033 

9200  PRINT 

9212  SETS! , AS: PRINTAS: : IFSTC  >64THEN9210 
7220  GOTO  7E03 
999?  END 

13003  DATA163, E , 169 , S, 52 , 9 , 237 , 169 .98,32 
, 199, 237 ,32,19, 23S , 153.33,195,232 
10313  DATA23S, 247, 32, 239, 237, 96,160,0, 16 
9,3,32,12,237, 169 , 9e , 32 , 135 , 237 
10320  DATA185, 80, 195,32,221 ,237, 23E,233, 
247,32,254, 237 ,96,0,3 

10030  RESTORE: FQRZ=1T051 : RE ADA: PDKE49151 
+Z  ,  A: NEXT 

13343  REM  GET: 49152:  WRITE: 49177 
13350  RETURN 

2E000  F'RINT :  PRINT :  PRIMT'TjAUF  WIEDERSEHEN 
! !!":PRX NT : F0KE532S3 ,14: F0KE532E 1 , 6 
20201  PRINT-UND  DANKESCHQEN  !" 


F;EADV . 


Disk-Monitor/Editor 


Wir  haben  eine  relative  Datei  mit 
250  Datensätzen  ä  127  Zeichen.  Die¬ 
se  Datei  benötigt  also  125  Daten¬ 
blöcke  und  zwei  Side-Sektor-Blöcke. 
Im  Directory-Eintrag  finden  wir  jetzt 
die  schon  erwähnten  zusätzlichen 
Bytebelegungen:  Byte  19  und  20  je¬ 
des  Eintrags  enthalten  j  etzt  Spur  und 
Sektor  des  ersten  Side-Sektor- 
Blocks;  Byte  21  gibt  die  Datensatz¬ 
länge  (Recordlänge)  an. 

Wir  wollen  jetzt  auf  den  248.  Da¬ 
tensatz  zugreifen;  das  DOS  arbeitet 
nun  folgendermaßen:  Ein  Datensatz 
enthält  127  Byte,  das  heißt,  es  passen 
zwei  Datensätze  in  einen  Block;  da¬ 
durch  errechnet  sich  der  Block,  auf 
den  jetzt  zugegriffen  wird,  aus 
(248-l)/2  =  123.5.  (Minus  1,  da  immer 
von  0  an  gezählt  wird).  Da  ein  Side- 
Sektor-Block  nur  120  Einträge  auf¬ 
nehmen  kann,  ist  der  Zeiger  auf  den 
Datenblock  im  Side-Sektor-Block 
Nummer  2  zu  finden.  Dieser  wird 
jetzt  anhand  des  Verzeichnisses  in 
Block  1  gelesen  und  dann  auf  Zeiger 
Nummer  3  (Bytes  22,23)  zu  gegriffen. 
Wir  kennen  also  jetzt  Spur  und  Sek¬ 
tor  des  Blockes,  in  dem  unser  Daten¬ 
satz  steht;  die  Position  des  ersten  Da¬ 
tenbyte  berechnet  sich  jetzt  aus  dem 
Nachkommaanteil  der  obigen  Divi¬ 
sion  (0.5*254=127).  Der  Datensatz 
beginnt  also  beim  127  +  2  =  129ten 
Byte. 

Der  Aufbau  von  relativen  Dateien 
ist  also,  wie  schon  erwähnt,  ziemlich 
kompliziert;  diese  Art  der  Daten¬ 
speicherung  hat  aber  einige  Vortei¬ 
le  gegenüber  der  'normalen'  mit 
SEQ-Files. 

Bedienungshinweise  für  EDDI,  dem  Disk- 
Monitor/Editor 

Da  unserem  U-Boot  auf  dieser 
schwierigen  Fahrt  der  Sauerstoff 
ausgegangen  ist,  wollen  wir  uns 
nun  erst  einmal  erholen.  Hier  noch 
ein  paar  Anregungen  zur  Arbeit  mit 
EDDI:  EDDI  kann  nicht  nur  Blöcke 
lesen  und  anzeigen;  Sie  können 
auch  Bytes  verändern  und  diesen 
Block  danach  wieder  abspeichern. 

Dazu  laden  Sie  den  zu  verändern¬ 
den  Block  und  fahren  auf  die  Seite, 
die  Sie  interessiert;  hier  tippen  Sie 
als  Kommando  F5,  und  der  Editor- 
Modus  startet.  Sie  können  jetzt  Bytes 
dezimal  abändern,  indem  Sie  den 
jeweils  neuen  Wert  eingeben  und 
»RETURN«  drücken.  Wollen  Sie  aus 
dem  Eingabemodus  aussteigen,  so 
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In  die  Geheimnisse  der  Floppy  eingetaucht 


Spuren 

Sektoren 

Anzahl 

Total 

01-17 

00-20 

21 

18-24 

00-18 

19 

25-30 

00-17 

18 

31-35 

00-16 

17 

Tabelle  1.  Spuren  und 

Sektoren  des  VC  1541-Diskettenformates 


Aufbau  des  Blocks  18,0: 

BYTE(s) 

Bedeutung: 

000-001 

Spur  und  Sektor  des  er¬ 
sten  Directory-Blocks 

002 

Formatkennzeichen  »A« 

003 

unbenutzt 

004-007 

BAM  der  Spur  1 

008-011 

BAM  der  Spur  2 

012-143 

BAM  der  Spuren  3-35 

144-161 

Name  der  Diskette,  auf¬ 
gefüllt  mit  160 

162-163 

ID  der  Diskette 

164 

unbenutzt 

165-166 

DOS  und  Formatkenn¬ 
zeichen 

167-255 

nicht  benutzt 

Tabelle  2.  Aufbau 

und  Inhalt  der  BAM  (Block-Belegungs-Plan) 
in  Spur  18,  Sektor  0 


Aufbau  eines  4  Byte-Eintrages 
in  der  BAM  (eine  Spur) 

BYTE(s) 

Bedeutung: 

000 

Anzahl  der  freien 

Blöcke  dieser  Spur 

001-003 

Belegplan  der  Spur 

Jedes  Byte  ist  zuständig 
für  8  Sektoren: 

Byte  1  für  0-7 

Bit  7  für  Sektor  0 

Bit  6  für  Sektor  1 
und  so  weiter 

Byte  2  für  8-15 

Byte  3  für  16-23 

Tabelle  3.  Für  jede 

Spur  reserviert  die  BAM  4  Bytes 


Aufbau  eines  Directory-Blocks: 

BYTE(s) 

Bedeutung 

000-001 

Spur  und  Sektor  des 
nächsten  Dir.-Blocks 

002-031 

Eintrag  Nr.  1 

032-033 

unbenutzt 

034-063 

Eintrag  Nr.  2 

064-066 

unbenutzt 

067-225 

Einträge  Nr.  3-7  bzw.  un¬ 
benutzt 

226-255 

Eintrag  Nr.  8 

Tabelle  4.  Aufbau 

der  Directory  der  VC  1541 


tippen  Sie  entweder  »RETURN«  und 
können  weiterblättern  ohne  den 
Editor  zu  verlassen,  oder  Sie  tippen 
»t  RETURN«,  um  in  den  Kommando- 
Modus  zu  kommen.  Nach  einigem 
Probieren  wird  Ihnen  EDDI  sehr 
schnell  vertraut  werden;  wir  gehen 
auch  in  den  folgenden  Ausgaben 
noch  darauf  ein. 

Wichtig: 

Beim  Wechseln  einer  Diskette 
muß  die  Funktionstaste  F6  getippt 
und  nach  dem  Austausch  eine  Taste 
gedrückt  werden,  sonst  reagiert  die 
Floppy  mit  einer  Fehlermeldung. 
Diese  können  übrigens  mit  »@«  ab¬ 
gerufen  werden.  Das  Zurückschrei¬ 
ben  eines  Blocks  auf  Diskette  erfolgt 
mit  F4,  wobei  Spur  und  Sektornum¬ 
mer  angegeben  werden  müssen. 
Hier  noch  ein  paar  Vorschläge  zum 
Ausprobieren:  Ändern  Sie  doch  ein¬ 


mal  auf  Ihrer  Versuchsdiskette  (!) 
das  Formatkennzeichen  (Spur  18, 
Sektor  0,  Byte  2  auf  66  statt  jetzt  65 
und  speichern  den  Block  an  die 
gleiche  Stelle  auf  die  Diskette  zu¬ 
rück.  Versuchen  Sie  nun  einmal  ein 
kleines  Programm  auf  diese  Disket¬ 
te  zu  schreiben.  (Die  genauen  Vor¬ 
gänge  in  der  Floppy  werden  beim 
nächstenmal  erläutert.)  Oder  än¬ 
dern  Sie  einmal  die  Bytes  im  Direc¬ 
tory,  die  den  Füetyp  angeben,  ent¬ 
sprechend  Tabelle  6  und  laden  Sie 
es  danach.  Mit  dem  klugen  Satz 
»Probieren  geht  über  Studieren« 
verabschieden  wir  uns  für  diese 
Ausgabe.  Nächstesmal  beginnt 
dann  ein  praktischer  Teil  unserer 
Expedition,  nämlich  die  Vorstellung 
des  Befehlssatzes  der  1541  mit  vie¬ 
len  Beispielen  und  Anregungen. 

(K.  Schramm/B.  Schneider/gk) 


Aufbau  des  Filetyp-Bytes 


BIT  Bedeutung,  ir.  Kammern  jeweiliger  Inhalt 


0 

(0) 

(1) 

(0) 

(1) 

(0) 

1 

(0)=DEL 

(0)=SEQ 

(1)=PRG 

(1)=USR 

(0)=REL 

2 

(0) 

(0) 

(0) 

(0) 

(1) 

3  unbenutzt 

4  unbenutzt 

5  unbenutzt 

6  (0)= normal;  (1)  =  File  kann  durch  SCRATCH  nicht  mehr  gelöscht  werden 

7  (0)=  File  noch  offen 

(1)  =  File  ordnungsgemäß  geschlossen 


Tabelle  6.  Die  Bedeutung  des  ersten 

Bytes  eines  Directory-Eintrages 

Aufbau  eines  Side-Sektor-Blocks: 

BYTE(s) 

Bedeutung 

000-001 

Spur  und  Sektor  des  näch- 

Aufbau  eines  Directory-Eintrags: 

sten  Side-Sektor-Blocks 

BYTE(s) 

Bedeutung 

002 

Nummer  des  Side-Sektor- 

Blocks 

000 

Füetyp,  siehe  ges.  Tab 

003 

Datensatzlänge 

001-002 

Spur  und  Sektor  des  er- 

004-005 

Spur  und  Sektor  des  Side- 

sten  Datenblocks 

Sektor-Blocks  1 

003-018 

Füename,  aufgefüllt  mit 

006-007 

Spur  und  Sektor  des  Side- 

160 

Sektor-Blocks  2 

019-020 

REL-Files:  Spur  und  Sek- 

008-015 

Spur  und  Sektor  der  Side- 

tor  des  ersten  Side- 

Sektor-Blöcke  3-6 

Sektor-Blocks 

016-017 

Spur  und  Sektor  des  er- 

021 

REL-Files:  Datensatz- 

sten  Datenblocks  für  den 

länge 

der  Side-Sektor-Block  zu- 

022-025 

unbenutzt 

ständig  ist.  (Datenblock  0) 

026-027 

Spur  und  Sektor  beim 

Spur  und  Sektor  des  zwei- 

Überschreiben  mit  @ 

ten  Datenblocks  (Nr.  1) 

(nur  Zwischenspeicher) 

018-255 

Spur  und  Sektor  der  Da- 

028-029 

Anzahl  der  von  diesem 

tenblocks  Nr.  2  bis  Nr.  119 

Füe  belegten  Blocks 

Tabelle  7.  Relative  Dateien 

Tabelle  5.  Bedeutung 

benutzen  Side-Sektor-Blöcke  um  Datensätze 

der  einzelnen  Byte  des  Directory  gezielt  anzuspringen 
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Bar  gläserne  US  3C 


In  der  ersten  Folge  haben  wir  uns  hauptsächlich  mit 
der  Basic-Verwaltung  befaßt.  Dabei  tauchte  immer 
wieder  der  Begriff  Zeropage  auf,  mit  dem  wir  uns 
heute  beschäftigen  wollen. 


Die  Zeropage  —  oder  zu  Deutsch 
die  Seite  Null  —  ist  in  Maschi¬ 
nensprache  besonders  einfach 
zu  handhaben.  Als  Seite  bezeichnet 
man  im  übrigen  immer  ein  Paket  von 
jeweils  256  Byte.  So  entspricht  Seite 
0  den  Adressen  0-255,  Seite  1  den 
Adressen  256-511  und  so  weiter. 

Eine  Zeropageadressierung,  zum 
Beispiel  LDA  $42,  benötigt  nur  zwei 
Byte,  eine  absolute  Adressierung, 
zum  Beispiel  LDA  $1234,  hingegen 
drei  Bytes  im  Speicher.  Damit  ver¬ 
bunden  ist  auch  die  Bearbeitungs¬ 
geschwindigkeit  eines  Maschinen¬ 
programms.  Denn  die  Zeropage¬ 
adressierung  ist  schneller  als  die 
entsprechende  Drei-Byte-Methode. 
Bei  kleineren  Programmen  in  As¬ 
sembler  fällt  dieser  Aspekt  zwar 
nicht  so  sehr  ins  Gewicht,  bei  sehr 
umfangreichen  Routinen,  (wie  zum 
Beispiel  beim  Basic-Interpreter) 
spielt  die  Adressierungsart  jedoch 
eine  größere  Rolle. 

In  der  Seite  0  legt  der  Computer 
also  insbesondere  die  Daten  ab,  die 
er  oft  benötigt,  wie  zum  Beispiel  Vek¬ 
toren,  Parameter  etc.  Die  komplette 
Liste  der  Adreßbelegung  zeigt  Ta¬ 
belle  1. 

Wir  wollen  es  jedoch  nicht  nur  mit 
der  Aufstellung  alleine  bewenden 
lassen.  Die  interessantesten  Lokatio¬ 
nen  möchte  ich  hier  herausgreifen 
und  besprechen.  Beginnen  wir  also 
mit  den  ersten  drei  Bytes  im  Spei¬ 
cher: 


Der  USR-Vektor 


Adresse  0,1,2:  Über  die  USR-Funk- 
tion  kann  der  Benutzer  eigene  ma¬ 
thematische  Routinen,  die  nicht  im 
Basic  implementiert  sind,  in  seine 
Programme  einbinden.  Dieses  Kom¬ 
mando  ruft  ein  Maschinenpro¬ 
gramm  auf,  dessen  Startadresse 
vorher  in  den  Speicherzellen  1  und 
2  abgelegt  wurde.  Wer  sich  dieses 


Befehls  nicht  bedient,  hat  drei  Zero¬ 
pagespeicherzellen  zur  freien  Ver¬ 
fügung,  die  er  für  eigene  Maschi¬ 
nenprogramme  nutzen  kann.  Die 
Syntax  der  USR-Funktion  entspricht 
derjenigen  normaler  Basic-Funktio- 
nen  wie  zum  Beispiel  FRE,  POS,  SIN, 
COS,  TAN  etc.:  A=  USR  (B)  oder 
PRINT  USR  (B). 

Der  Vorteil  gegenüber  dem  SYS- 
Befehl  liegt  m  der  Möglichkeit  Para¬ 
meter  zu  übergeben.  In  unserem 
Beispiel  wird  der  Benutzerroutine 
die  Variable  B  übergeben.  Der  er- 
rechnete  Zahlenwert  kann « '  nn  sei¬ 
nerseits  wieder  einer  Variablen  zu¬ 
gewiesen  werden. 

Wie  kann  man  sich  in  einem  Ma¬ 
schinenprogramm  die  eingegebe¬ 
ne  Zahl  beschaffen?  Nun,  alle  Basic- 
Variablen  werden  im  Fließkomma¬ 
format  abgespeichert,  eine  Ausnah¬ 
me  bilden  nur  die  Integer-Variablen. 
Dabei  werden  die  Zahlen  vom  Com¬ 
puter  nach  einem  bestimmten  Ver¬ 
fahren  binär  verschlüsselt,  so  daß 
eine  Zahl  mit  acht  Nachkommastel¬ 
len  und  einem  Exponenten  in  nur 
fünf  Bytes  Platz  findet, 

Zwischengespeichert  wird  das 
Ergebnis  in  besonderen  Fließkom¬ 
ma-Akkumulatoren  (Adresse  97- 
104),  Mit  Hilfe  eines  Unterpro¬ 
gramms  aus  dem  Basic-Interpreter 
kann  es  von  dort  aus  abgerufen  wer¬ 
den,  wobei  es  in  eine  Integerzahl  (al¬ 
so  ein  Wert  zwischen  0  und  65536) 
umgewandelt  wird. 

Aufgerufen  wird  die  Routine  mit 
JSR  $D7F7.  Der  2-Byte-Wert  steht 
dann  in  den  Zeropagestellen  $14 
und  $15  (Hexadezimal)  zur  Verfü¬ 
gung.  Da  diese  Adressen  vom  Inter¬ 
preter  oft  benutzt  werden,  ist  es  rat¬ 
sam  die  Zahlen  in  andere  Register 
zu  übertragen  (in  welche,  darauf 
kommen  wir  später  noch  zu  spre¬ 
chen). 

Das  Gegenstück  zu  dem  eben  ge¬ 
zeigten  Unterprogramm  stellt  die 
Routine  »2-Byte  in  Fließkomma«  dar. 


Das  Low-Byte  wird  in  das  y-Register 
geladen,  das  höherwertige  Byte 
muß  in  den  Akku.  Dann  wird  die 
Routine  mit  JSR  $D391  gestartet,  wo¬ 
bei  die  USR-Variable  (in  unserem 
Beispiel  A)  die  Daten  erhält. 


Speicher  ausgedeutet  — 
die  Basic-Zeiger 


Adresse  43  -  56:  Diese  Adressen  spie¬ 
len,  wie  wir  schon  im  ersten  Teil  ge¬ 
sehen  haben,  bei  der  Verwaltung 
von  Basic-Programmen  und  -Varia¬ 
blen  eine  zentrale  Rolle.  Über  sie  er¬ 
folgt  die  Trennung  zwischen  Pro¬ 
gramm  und  den  einzelnen  Varia¬ 
blentypen.  Auch  für  das  Speichern 
und  Laden  von  Programmen  liefern 
sie  die  Basisdaten.  Die  einzelnen 
Funktionen  können  sie  Tabelle  1  ent¬ 
nehmen. 

Eine  interessante  Gebrauchsmög¬ 
lichkeit  ergibt  sich  durch  die  Memo- 
ryroutine.  Dies  ist  ein  kurzes  Basic- 
Programm,  welches  die  Aufgabe 
hat,  den  von  Programmen,  Varia¬ 
blen,  Strings  und  Arrays  belegten 
Speicherplatz  festzustellen  (Listing 
1): 

Wie  man  nach  dem  Starten  des  Pro¬ 
gramms  sehen  kann,  erhält  man  die 
Werte,  indem  man  die  Zeiger  — 
nachdem  sie  in  Dezimalzahlen  um¬ 
gewandelt  worden  sind  —  voneinan¬ 
der  subtrahiert.  Den  Speicherplatz, 
der  durch  Variablen  belegt  ist,  er¬ 
hält  man  beispielsweise  durch  Sub¬ 
traktion  des  Hilfszeigers,  »Beginn 
der  Variablen«  (45/46)  von  dem  Zei¬ 
gerpaar  »Beginn  der  Arrays«  (47/ 
48). 

Gerade  bei  stark  limitiertem  Spei¬ 
cherplatz  (wie  zum  Beispiel  in  der 
Grundversion)  kann  dieses  Hilfspro¬ 
gramm  Aufschluß  über  die  momen¬ 
tane  Speicherverteilung  geben. 

Eine  weitere  Verwendung  ergibt 
sich  durch  geschicktes  Manipulie- 
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Listing  1.  »Memory  Dump« 

10000  REM  ***  MEMORY  DUMP  *** 

10005  REM 

10010  A=46 : B=44 : GOSUB 1 0080 SPRINT " PROGRAM 
M  :  "  ;  X 

10020  A=48: B=46: GOSUB10080: FR INT "VARIABL¬ 
EN  :  " ;  X 

1 0030  A=50 : B=48 : GOSUB1 0080 : PR I NT " ARRAYS 
:";X 

10040  A=56: B=52: GOSUB10080: PRINT"STRINGS 
:";X 

10050  A=56: B=44: GOBUB10080: PRINT"SPEICHE 
R  :  "  ;  X 

10060  PRINT"BYTES  FREE: " ; FRE C0) 

10070  END 

1 0080  X=PEEK ( A ) * 256+PEEK ( A- 1 ) -PEEK ( B ) *25 
6-PEEK (B— 1 ) 

10090  RETURN 
READY. 


ren  der  Speicherzellen,  so  daß  es 
möglich  wird,  mehrere  Programme 
gleichzeitig  um  Speicher  unterzu¬ 
bringen. 

Diese  Aufgabe  erfüllt  das  recht 
komfortable  Programm  »Basic- 
Switch«  (Listing  2);  zunächst  aber  die 
Grundlagen:  Die  besagten  Zeiger 
stecken,  wie  bereits  im  ersten  Teil 
unseres  Kurses  beschrieben,  den 
Adreßbereich  für  Basic-Programme 
ab.  Die  ersten  vier  Bytes  aus  dem 
Zeropagekomplex  (Adresse  43  bis 
46)  grenzen  das  Programm  nach 
oben  und  unten  ab.  Die  daran  fol¬ 
genden  Variablen  sind  in  ihrer  Aus- 
dehung  ebenfalls  durch  ein  Zeiger¬ 
paar  (Adresse  55/56)  limitiert.  Der 
Bereich  jenseits  dieser  Markierung 
ist  für  Basic  tabu.  Dort  ist  also  Platz 
für  Maschinenprogramme  oder 
ähnliches,  denn  ein  Überschreiben 
durch  Basic-Variable  ist  nicht  mög¬ 
lich. 

Will  man  nun  mehrere  Basic-Pro¬ 
gramme  im  Speicher  versammeln, 
so  muß  man  sie  nur  durch  verstellen 
der  Zeiger  eindeutig  voneinander 
trennen. 


Wie  in  Bild  1  zu  sehen  ist,  grenzen 
die  Programmblöcke  direkt  anein¬ 
ander.  Unter  Programmblock  ist 
hier  die  Einheit  von  Programm  und 
einem  sich  daran  anschließenden 
Variablenbereich  zu  verstehen. 
Durch  Umschalten  der  Zeiger  wird 
dann  immer  der  gewünschte  Pro¬ 
grammblock  eingeblendet. 


Nützlich  kann  diese  Art  der  Spei¬ 
cheraufteilung  sein,  wenn  man  um¬ 
fangreiche  Programme  erstellen 
möchte  und  es  nötig  wird,  andau¬ 
ernd  Hilfsprogramme  (zum  Beispiel 
Grafikeditor  oder  ähnliches)  nach¬ 
zuladen.  Durch  Basic-Switch  kann 
hier  viel  Arbeit  eingespart  werden. 

Diese  Routine  liegt  wieder  in  zwei- 


Listing  2.  »Basic-Switch«  (Basic-Lader) 

390 

DAT A032 , 096 ,198, 032 , 1 42 

10 

REM  ************************* 

400 

DATA198, 032, 115,000,240 

20 

REM  **** 

**** 

410 

DATA006 ,201 , 143,240,016 

30 

REM  ****  BASICSWITCH 

**** 

420 

DATA208 , 245 ,160,001,177 

40 

REM  **** 

**** 

430 

DATA 1 22 , 208 , 239 , 200 , 1 92 

50 

REM  ****  BY  C.  SAUER 

**** 

440 

DATA002 , 208 , 247 , 076 ,116 

60 

REM  **** 

**** 

450 

DAT  A 1 96 , 032 ,215, 202 , 1 65 

70 

REM  ************************* 

460 

DATA122, 164, 123,032,030 

80 

FORT=0TO286: READD: P=P+D: NEXT: IFP<  >380 

470 

DAT A203 , 240 ,241,166, 250 

2 1 THENPR I  NT  "  EEJFEHLER  !  !  "  :  END 

480 

DATA202, 138,010,010,010 

90 

PQKE55 , 0 : P0KE56 , PEEK (56) - 

2 : CLR : A=PEEK 

490 

DATA168, 162,000, 181 ,043 

(56) 

503 

DATA 1 53 , 032 , -02 , 200 , 232 

100 

RESTORE: F0RT=A*256T0A*256+286 

510 

DAT A224 , 004 , 208 , 245 , 1 62 

110 

READD 

520 

DATA000 ,181, 055 ,153, 032 

120 

IFD=-1THEND=A 

530 

DATA-02 , 200 , 232 , 224 , 002 

130 

IFD=-2THEND=A+1 

540 

DAT  A208 , 245 , 096 , 032 , 133 

140 

PGKET , D 

553 

DATA-0 1 ,032, 1 15,000,032 

150 

NEXT 

560 

DATA138, 205, 032, 184,209 

160 

PR INT" LIEFERT I G .  START  MIT" : PR INT "MB 

570 

DATA165, 253, 133,043, 165 

YS" 

A*256+259 

580 

DATA254, 133,044, 165, 101 

170 

PR INT "BMAKTI VIERUNG  MIT 

'  A '  " 

590 

DATA024 ,101, 253 ,133, 253 

180 

GETA$: IFA$=" "THEN180 

600 

DATA165, 100, 101 ,254, 133 

190 

IFAf-<  >"  A"THENEND 

610 

DATA254, 165,251 , 133,252 

200 

SYSA*256+259 

620 

DATA230 ,251,165, 043 , 208 

210 

DATA230 , 122 , 208 , 002 , 230 

630 

DATA002, 198,044,198,043 

220 

DATA  12-3, 032, 121 ,000,201 

640 

DAT  A032 , 248 , 227 , 165,254 

230 

DATA255 , 240 , 003 , 076 ,121 

650 

DATA205, 132,002,144,016 

240 

DATA000 , 032 ,115, 000 , 20 1 

660 

DATA208 , 007 ,165, 253 , 205 

250 

DATA069 ,208 , 003 \ 076 , 168 

670 

DATA 13 1,002, 144,007, 169 

260 

DATA-0 1,201, 083 , 240 , 003 

680 

DATA012, 160,205,032,030 

270 

DATA076 , 008 , 207 , 032 , 155 

690 

DATA203, 165,253,133,055 

280 

DATA215, 165’ 101 ,240,004 

700 

DATA165, 254, 133,056,032 

290 

DATA228 ,251,144, 003 , 076 

710 

DATA068, 198, 165,252, 133 

300 

DAT  A072 ,210, 134,252,032 

720 

DATA250 , 076 , 049 ,-01,162 

310 

DATA 133 , —0 1 , 166,252,202 

730 

DATA000, 134,250, 134,1 16 

320 

DAT  A 138 ,010,010,010, 168 

740 

DATA232, 134,251 , 134,252 

330 

DATA162, 000, 185,032,-02 

750 

DATA 165 ,043 , 133,253,165 

340 

DATA 1 4? , 043 , 200 , 232 , 224 

760 

DATA044, 133,254, 169,076 

350 

DAT A004 , 208 , 245 ,162, 000 

770 

DATA133, 115,169,-01,133 

360 

DATA 1 85 , 032 , -02 ,149, 055 

780 

DATA1 17,096 

370 

DATA200 , 232 , 224 , 002 , 208 

READY . 

380 

DATA245 , 165 , 252 , 133 , 250 

IR«  rtiWi* 
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erlei  Form  ausgedruckt  vor.  Zum  ei¬ 
nen  als  Assemblerlisting  für  solche, 
die  tiefer  in  das  Programm  einstei¬ 
gen  möchten  (Listing  3).  Und  zum  an¬ 
deren  als  Basic-Lader.  Das  Pro¬ 
gramm  ist  grundsätzlich  auf  jeder 
Ausbaustufe  lauffähig.  Sinnvoll  wird 
es  jedoch  erst  bei  größerem  Spei¬ 
cher,  Es  ist  in  bewährter  Weise  über 
das  Befehlswort  PI  in  den  Interpre¬ 
ter  eingebunden. 

Nachdem  die  Routine  per  SYS  ge¬ 
startet  worden  ist,  (der  Lader  über¬ 
nimmt  auch  diese  Arbeit),  muß  der 
erste  Programmbereich  initialisiert 
werden,  das  heißt  der  Benutzer 
nimmt  die  größenmäßige  Einteilung 
des  Speichers  vor.  Man  muß  sich  je¬ 
doch  schon  im  voraus  darüber  im 
klaren  sein,  wie  lang  das  Programm 
inklusive  Variablen  sein  soll,  denn 
eine  nachträgliche  Änderung  ist 
nicht  möglich. 

Die  Syntax  für  die  Initialisierung 
lautet:  7 r  E  »Länge«.  Danach  steht  der 
Speicherbereich  abzüglich  zwei  By¬ 
tes  für  Basic  zur  Verfügung.  Der  er¬ 
ste  so  eingerichtete  Programm¬ 
block  hat  die  Nummer  1,  der  zweite 
2  und  so  fort.  Nachdem  ein  zweiter 
Programmbereich  eingerichtet 
wurde,  kann  mit  %  S  »Nummer«  zwi¬ 
schen  den  Blöcken  umgeschaltet 
werden,  wobei  die  Routine  jedoch 
jedesmal  die  Variable  löscht. 

Um  dem  Benutzer  die  Orientie¬ 
rung  zu  erleichtern,  druckt  das  Ma¬ 
schinenprogramm  nach  jedem  Um¬ 
schalten  die  ersten  REM-Zeilen  aus. 
Daher  ist  es  ratsam,  jedem  Pro¬ 
gramm  eine  Kopfzeile  mit  den  wich¬ 
tigsten  Informationen  zu  geben, 

Nach  dieser  etwas  umfangrei¬ 
chen  Erläuterung  kehren  wir  nun 
zur  Beschreibung  der  Zeropage  zu¬ 
rück. 

Adresse  59,60:  Diese  Speicherzellen 
enthalten  die  laufende  Zeilennum¬ 
mer  eines  Basic-Programms.  Sollte 
es  im  Programmlauf  unterbrochen 
werden,  hat  man  hier  die  Möglich¬ 
keit,  die  Zeilennummer  nachzule¬ 
sen. 


Tabelle  1.  Die  Adreßbelegung  der  Zeropage  beim  VC  20 

Dezimal 

Hexadezimal  Bemerkung 

0-2 

00  -  02 

USR-Sprungvektor  (Normal:  JMP  $D248) 

3-4 

03  -  04 

Vektor  für  Unterprogramm  ’Fließkomma  nach  Integer’ 

5-6 

05  -  06 

Vektor  für  Unterprogramm  'Integer  nach  Fließkomma’ 

7 

07 

Suchzeichen  (sucht  oder  Zeilenende) 

8 

08 

Hochkommaflag 

9 

09 

Spaltenspeicher  beim  TAB-Befehl 

10 

0A 

LOAD/VERIFY  Flag  (0  =  LOAD/1  =  VERIFY) 

11 

OB 

Eingabepufferzeiger  (Anzahl  der  Elemente) 

12 

0C 

Flag  für  Dim  (enthält  die  laufende  Variable) 

13 

0D 

Variablentyp  (0  =  Numerisch/128  =  String) 

14 

0E 

Numerische  Variable  (0  =  Fließkomma/ 128  Integer) 

15 

0F 

Flag  bei  DATA  und  LIST 

16 

10 

Flag  für  FN 

17 

11 

Eingabeflag  (0  =  INPUT/64  =  GET/152  =  READ) 

18 

12 

Vorzeichen  bei  ATN 

19 

13 

Aktuelles  Ein-/Ausgabegerät 

20-21 

14  -  15 

Integerwert  (zum  Beispiel  Zeilennummer  oder 

Zwischenerg.) 

22 

16 

Zeiger  im  Stringstapel 

23-24 

17  -  18 

Zeiger  auf  den  zuletzt  verwendeten  String 

25-33 

19  -  21 

Stringstapel 

34-37 

22  -  25 

Speicher  für  div.  Hilfszeiger 

38-42 

26  -  2A 

Speicherbereich  bei  einer  Multiplikation 

43-44 

2B  -  2C 

Zeiger  auf  Beginn  des  Basic-Speicherbereichs 

45-46 

2D-  2E 

Beginn  der  Variablen  (=  Ende  des  Programms) 

47-48 

2F  -  30 

Beginn  der  Arrays  (=  Ende  der  Variablen) 

49-50 

31  -  32 

Zeiger  auf  Ende  der  Arrays 

51-52 

33  -  34 

Zeiger  auf  Beginn  der  Strings 

53-54 

35  -  36 

Hüfszeiger  für  Strings 

55-56 

37  -  38 

Zeiger  auf  Basic-Ende 

57-58 

39  -  3A 

Momentane  Basic-Zeilennummer 

59-60 

3B  -  3C 

i  rorherige  Basic-Zeilennummer 

61-62 

3D-  3E 

seiger  auf  lfd.  Basic-Befehl  (für  CONT) 

63-64 

3F  -  40 

Momentane  Zeilennummer  für  DATA 

65-66 

41  -  42 

Momentane  Adresse  einer  DATA-Zeüe 

67-68 

43  -  44 

Zeiger  auf  Element  in  DATA-Zeile  und  INPUT-Vektor 

69-70 

45  -  46 

Momentaner  Variablenname 

71-72 

47  -  48 

Adresse  der  momentanen  Variablen 

73-74 

49  -  4A 

Zeiger  für  FOR/NEXT  Variable 

75-76 

4B  -  4C 

Zwischenspeicher  für  Programmzeiger  (bei  SAVE) 

77 

4D 

Speicher  für  Vergleichssymbole 

78-79 

4E  -  4F 

Zeiger  für  FN 

80-83 

50  -  53 

Verschieden  genutzter  Speicherbereich 

(Hauptsächlich  für  Strings) 

84-86 

54  -  56 

FN-Sprungvektor  (ähnlich  USR) 

87-96 

57  -  60 

Feld  für  diverse  arithmetische  Zwecke 

(Arithmetik  Akku  #  3  und  #  4) 

97 

61 

Fließkommaakku  #  1  :  Exponent 

98  -  101 

62  -  65 

Fließkommaakku  #  1  :  Matisse 

102 

66 

Fließkommaakku  #  1  :  Vorzeichen 

103 

67 

Zeiger  für  Polynomauswertung 

104 

68 

Überlauf  von  Akku  #  1 

105 

69 

Fließkommaakku  #  2  :  Exponent 

106  -  109 

6A-  6D 

Fließkommaakku  #2  :  Mantisse 

43,  44 


45,  46 


55,56 
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110 

6E 

Fließkommaakku  #  2  :  Vorzeichen 

111 

6F 

Vergleichsbyte  der  Vorzeichen  von  Akku  #  1  und  Akku 
#2 

112 

70 

Rundung  für  Akku  #  1 

113  -  114 

71  -  72 

Länge  des  Kassettenpuffers 

115  -  138 

73  -  8A 

CHRGET-Routine 

139  -  143 

8B  -  8F 

RND-Wert  als  Fließkommazahl 

144 

90 

Status  flag  ST 

145 

9) 

150 

96 

Kassetten  EOT  (End  of  Tape)  erhalten 

151 

97 

Zwischenspeicher  für  Register 

152 

98 

Anzahl  der  offenen  Dateien 

153 

99 

Eingabegerät  (Normal  =  0  :  Tastatur) 

154 

9A 

Ausgabegerät  (Normal  =  3  :  Bildschirm) 

155 

9B 

Paritätsbyte) 

150 

96 

Kassetten  EOT  (End  of  Tape)  erhalten 

151 

97 

Zwischenspeicher  für  Register 

152 

98 

Anzahl  der  offenen  Dateien 

153 

99 

Eingabegerät  (Normal  =  0  :  Tastatur) 

154 

9A 

Ausgabegerät  (Normal  =  3  :  Bildschirm) 

155 

9B 

Paritätsbyte  vom  Band  (Prüfsumme) 

156 

9C 

Flag  für  Byte  erhalten  (von  Band) 

157 

9D 

Flag  für  Direktmodus  (=  128)  oder  Programm  (=  0) 

158 

9E 

Band:  erster  Teil  -  Prüfsumme 

159 

9F 

Band:  zweiter  Durchlauf  -  Prüfsumme 

160  -  162 

A0-  A2 

Interne  Uhr  (Stunde,  Minute,  Sekunde) 

163 

A3 

Bitzähler  für  serielle  Ausgabe 

164 

A4 

Zähler  für  Band 

165 

A5 

Startsynchronisation  bei  Kassetten 

166 

A6 

Zeiger  im  Bandpuffer 

167  -  171 

Ä7-  AB 

Flags  für  Schreiben/Lesen  bei  Band 

172  -  173 

AC- 

-  AD 

Zeiger  auf  Kassettenpuffer  und  für  scrolling 

174  -  175 

Ae  -  AF 

Zeiger  auf  Programmende  bei  LOAD 

176  -  177 

BO  -  Bl 

Bandzeitkonstanten 

178  -  179 

B2  -  B3 

Startadresse  des  Bandpuffers 

180 

B4 

Bitzähler  für  Band 

181 

B5 

Band  oder  RS232:  nächstes  zu  sendendes  Bit 

182 

B6 

Übertragungsspeicher  für  RS232 

183 

B7 

Länge  des  Filenamens  Tabelle  1.  Die  Adreß- 

184 

B8 

Logische  Filenummer  belegung  der  Zeropa- 

185 

B9 

Sekundäradresse  ge  beim  VC  20 

186 

Ba 

Gerätenummer  (Fortsetzung) 

187  -  188 

BB-  BC 

Zeiger  auf  Filenamen 

189 

BD 

Ein-/Ausgabespeicher  (für  seriell) 

190 

BE 

Blockzähler  für  Band 

191 

BF 

Puffer  für  serielle  Ausgabe 

192 

CO 

IBandmotor  Flag 

193  -  194 

CI  -  C2 

Startadresse  für  Ein-/Ausgabe 

1  195  -  196 

C3  -  C4 

Endadresse  für  Ein-/Ausgabe 

197 

C5 

gedrückte  Taste  (momentaner  Wert  im  Tastaturmatrix- 
code) 

198 

C6 

Anzahl  der  gedrückten  Tasten  (im  Tastaturpuffer) 

199 

C7 

Bildschirm:  negative  Anzeige 

200 

C8 

Zeiger  auf  Zeilenende  bei  Eingabe 

!  201 

C9 

Cursorzeile 

202 

CA 

Cursorspalte 

203 

CB 

Welche  Taste?  (64  =  keine) 

204 

CC 

Cursorblinken 

205 

CD 

Cursor  Blinkzähler 

206 

CE 

Zeichen  unter  dem  Cursor 

207 

CF 

Flag  für  Cursorblinken  (0  =  An/1  =  Aus) 

208 

DO 

Eingabe  von  Bildschirm/oder  Tastatur 

209  -  210 

Dl  -  D2 

Start  der  aktuellen  Bildschirmzeile 

211 

D3 

Position  des  Cursors  in  der  aktuellen  Bildschirmzeile 

212 

D4 

Flag  für  Cursor  (0  =  Direkt,  sonst  programmiert) 

213 

D5 

Länge  der  Bildschirmzeile  (21  od.  42  od.  63  od.  84) 

214 

D6 

Cursorzeile 

215 

D7 

Zeiger  für  diverse  Zwecke 

216 

D8 

Anzahl  der  Inserts 

217  -  242 

D9-  F2 

High  Bytes  der  Bildschirmzeilenanfänge 

243  -  244 

F3  -  F4 

Zeiger  im  Farbspeicher 

1  245-246 

F5  -  F6 

Zeiger  in  der  Tastaturdekodiertabelle 

247  -  248 

F7  -  F8 

Zeiger  auf  RS232  Eingabepuffer 

249  -  250 

F9  -  FA 

Zeiger  auf  RS232  Ausgabepuffer 

251  -  254 

FA  -  FE 

Freie  Zeropageadressen 

255  (-  266) 

FF  -  10A 

Zwischenspeicher  für  Fließkomma  nach  ASCII 

Adresse  63  -  66:  Mit  Hilfe  dieser  Zei¬ 
ger  läßt  sich  ein  zeilennummernge¬ 
steuertes  RESTORE  realisieren.  Die 
ersten  zwei  Bytes  enthalten  die  mo¬ 
mentane  Zeilennummer  für  die 
DÄTA-Abfrage.  Dies  ist  sehr  prak¬ 
tisch,  denn  damit  kann  man  jeder¬ 
zeit  feststellen,  in  welcher  DATA- 
Zeile  man  sich  befindet.  Das  zweite 
Doppelbyte  bildet  die  Adresse  für 
die  nächste  DATA-Zeile.  Man  hat  al¬ 
so  zwischen  Zeilennummer  und  der 
absoluten  Adresse  einer  DATA-Zeile 
zu  unterscheiden. 

Das  nun  folgende  kurze  Maschi¬ 
nenprogramm  (Listing  4  und  5)  er¬ 
möglicht  ein  Zeilennummem-RE- 
STORE.  Man  kann  damit  zwar  nicht 
gezielt  auf  ein  Element  in  einer 
DATA-Zeile  zugreifen,  aber  zumin¬ 
dest  auf  eine  bestimmte  Zeile. 

Was  auch  im  Zusammenhang  mit 
dem  Maschinensprachkurs  von  In¬ 
teresse  sein  kann,  ist  der  Aufbau 
dieser  kurzen  Routine.  Denn  durch 
geschicktes  Nutzen  von  Unterpro¬ 
grammen  aus  dem  ROM  kann  man 
nämlich  viel  Speicherplatz  sparen. 
Aus  diesem  Grunde  werde  ich  in  ei¬ 
ner  späteren  Folge  Interpreter-  und 
Betriebssystemunterroutinen  näher 
beleuchten. 

Das  vorliegende  Maschinenpro¬ 
gramm  benötigt  genau  43  Byte  und 
liegt  am  Ende  des  verfügbaren  Ba- 
sic-Speichers.  Die  Start-  und  End¬ 
adresse  wird  vom  Lader  angege¬ 
ben.  Aufgerufen  wird  der  Zeilenre- 
store  mit:  SYS  »Startadresse«,  »Zei- 
lennumer«. 

Die  DATA-Zeiger  werden  dann  auf 
die  angegebene  Zeile  zurückge¬ 
stellt,  was  sowohl  im  Direktmodus, 
als  auch  vom  Programm  aus  erfol¬ 
gen  kann. 

Zustandsbeschreibung: 
Das  Statusflag 


Adresse  144:  Dieses  Statusflag  ist  auch 
von  Basic  aus  über  die  STATUS  be¬ 
ziehungsweise  ST-Anweisung  ab- 
fragbar.  Es  liefert  das  Computersta¬ 
tus-Byte,  dessen  Inhalt  aufgrund  der 
letzten  Input-Output-Operation  ge¬ 
setzt  wurde,  Bezogen  auf  den  Kas¬ 
settenport  liefert  es  nach  Bild  2  be¬ 
stimmte  Meldungen.  Die  Informatio¬ 
nen  über  die  geladenen  Program¬ 
me  werden  binär  wiedergegeben. 
Die  Null  signalisiert  ein  ordnungs¬ 
gemäß  geladenes  Programm.  32 
hingegen  bedeutet,  daß  ein  Prüf¬ 
summenfehler  vorliegt.  Es  ist  aber 
auch  möglich,  daß  der  Computer 
mehrere  Meldungen  in  dieses  Byte 
packt,  beispielsweise  52  =  32  +  16 
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+  4  :  Hier  wurde  ein  kurzer  Block 
geladen,  jedoch  ist  die  Priifsumme 
falsch  und  ein  fataler  Ladefehler 
liegt  vor, 

An  dieser  Stelle  ist  es  angebracht, 
sich  näher  mit  dem  Aufzeichnungs¬ 
verfahren  zu  beschäftigen  (Bild  3). 

So  kommen  Programme 
aufs  Band 

Jeder  Abspeichervorgang  be¬ 
ginnt  mit  dem  Header.  Dieser  Kopf 
besteht  aus  dem  Vorspann  (das  ist 
ein  etwa  acht  Sekunden  langer 
Pfeifton)  und  dem  eigentlichen  Pro¬ 
grammkopf.  Dieser  enthält  vier 
wichtige  Informationen,  nämlich 
über  Programmtyp,  Startadresse, 
Endadresse  und  Programmname, 
Diese  Daten  sind  ebenfalls  im  Band¬ 
puffer  zu  finden  und  können  von  dort 
abgerufen  werden. 

Das  erste  Byte  (Adresse  828)  gibt 
Auskunft  über  den  Headertyp.  Eine 
1  zeigt  an,  daß  es  sich  um  ein  Pro¬ 
gramm  handelt,  das  verschoben  ge¬ 
laden  werden  kann,  also  auch  an  ei¬ 
ne  andere  Stelle,  als  die,  von  der  aus 
es  abgespeichert  wurde.  Das  Ge¬ 
genstück  dazu  ist  die  absolute  Lade¬ 
methode  (Headertyp  3),  die  bereits 
in  der  ersten  Folge  meiner  Abhand¬ 
lung  vorgestellt  wurde.  Gemeint  ist 
LOAD”. .”,1,1.  Die  Sekundäradresse  1 
signalisiert  dem  Computer,  daß  er 
das  Proramm  (unabhängig  von  den 
Zeigern  43,  44)  wieder  in  den  glei¬ 
chen  Adreßbereich  laden  soll.  Um 
Verwechslungen  vorzubeugen,  ist 
es  wichtig,  Headertyp  und  Sekun¬ 
däradresse  zu  unterscheiden.  Für 


den  Headertyp  gibt  es  drei  Mög¬ 
lichkeiten: 

1:  Laden  mit  Verschiebelader  (die 
Anfangsadresse  wird  durch  den 
Zeiger  43  und  44  bestimmt). 

2:  Ein  File  —  also  Daten  aus  Variab¬ 
len  —  wurde  abgespeichert.  Die  Un¬ 
terscheidung  ist  wichtig,  denn  Da¬ 
ten  können  nicht  mit  LOAD  geladen 
werden. 

3:  Ein  Programm  ist  absolut  zu  laden. 

Die  nächsten  vier  Bytes  geben  die 
Anfangs-  und  Endadresse  des  gela¬ 
denen  Files  an.  Mit  der  Endadresse 
hat  es  eine  besondere  Bewandtnis. 
Sie  wird  nämlich  nach  korrektem 
Laden  der  Zeropage  (Adresse  45, 
46)  übergeben.  Bei  Load  Error  ge¬ 
schieht  dies  nicht;  PRINT  FRE(O) 
zeigt  dann  die  volle  Bytezahl  an,  ob¬ 
wohl  sich  ein  Programm  im  Speicher 
befindet.  Man  darf  das  Programm  — 
das  vielleicht  nur  einen  geringfügi¬ 
gen  Fehler  hat  — ,  dann  nicht  starten, 
weil  die  Variablen  dieses  über¬ 
schreiben  würden.  Abhilfe  schafft  in 
diesem  Fall 

POKE  45,PEEK(831):POKE  46.PEEK 
(832):CLR. 

Die  Werte  werden  damit  von  »Hand« 
übertragen  und  ein  normaler  Pro¬ 
grammablauf  ist  in  den  meisten  Fäl¬ 
len  wieder  möglich. 

Jetzt  aber  wieder  zurück  zu  Bild  3: 
Nachdem  der  Vorspann  und  der 
Programmkopf  vor  einem  Trennzei¬ 
chen  (dies  ist  ein  ganz  kurzer  Pieps) 
auf  Band  geschrieben  worden  ist, 
wird  der  Header  gleich  noch  einmal 
abgespeichert. 

Dies  ist  eine  Eigenheit  des 
Commodore-Systems,  das  der  Da¬ 
tensicherheit  dient.  Denn  nachdem 


der  Programmkopf  1  geladen  hat, 
vergleicht  er  in  einem  zweiten 
Durchgang  das  bisher  geladene 
(welches  sich  ja  schon  im  Speicher 
befindet)  mit  Programmkopf  2.  Eine 
Abweichung  veranlaßt  den  Compu¬ 
ter  eine  Fehlermeldung  auszuge¬ 
ben,  in  ganz  schweren  Fällen  wird 
der  Ladevorgang  gleich  ganz  unter¬ 
brochen.  Diese  Verfahrensweise 
gilt  nicht  nur  für  den  Programmkopf, 
sondern  auch  für  Programme  und 
Daten  —  sie  alle  werden  doppelt  ab¬ 
gespeichert. 

Nachdem  also  der  Programmkopf 
erkannt  worden  ist,  zeigt  der  Com¬ 
puter  den  Filenamen  an,  und  das  ei¬ 
gentliche  Programm  (oder  die  Da¬ 
ten)  wird  geladen.  Ihnen  ist  wieder¬ 
um  ein  kurzer  Vorspann  vorange¬ 
stellt.  Der  Endblock  besteht  aus 
Endmarkierung  und  einem  Nach¬ 
spann.  Er  zeigt  dem  VC  20  das  Ende 
des  geladenen  Programms  an,  wo¬ 
mit  der  Ladevorgang  beendet  ist. 

Nach  diesem  Exkurs  zum  Kasset¬ 
tenaufzeichnungsformat  nun  wieder 
zur  Zeropage. 

Die  STOF-Taste 
mit  Sonderfunktion 

Adresse  145:  Mit  Hilfe  dieser  Spei¬ 
cherstelle  kann  man  den  Zustand 
der  STOP-  und  der  linken  SHIFT- 
Taste  abfragen: 

Wert  = 

253:  Linke  SHIFT-Taste  gedrückt 
254:  STOP-Taste  gedrückt 
255:  Keine  der  beiden  gedrückt 

Wenn  man  das  Low-Byte  des 
STOP-Vektors  (Adresse  808)  auf  114 
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—  statt  ursprünglich  112  —  setzt,  so  ist 
man  in  der  Lage,  diese  Taste  von  Ba¬ 
sic  aus  abzufragen,  ohne  das  laufen¬ 
de  Programm  anzuhalten.  Ihr  kann 
dann  in  der  Routine  eine  besondere 
Funktion  zugewiesen  werden,  bei¬ 
spielsweise  Anhalten  des  Pro- 
grammablaufs  für  eine  bestimmte 
Zeit. 

Programmiert  oder  direkt? 
Das  ist  hier  die  Frage 

Adresse  157:  Dieses  Flag  kann  nur 
zwei  Zustände  annehmen:  Entwe¬ 
der  0  oder  128.  Ist  der  Inhalt  der 
Speicherstelle  Null,  dann  arbeitet 
der  Computer  gerade  ein  Pro¬ 
gramm  ab;  bei  128  befindet  er  sich 
im  Direktmodus. 

Diese  Zeropageadresse  kann 
dann  von  Bedeutung  sein,  wenn 
man  eigene  Basic-Kommandos  defi¬ 
nieren  will  (vergleiche  Teil  1). 

Zum  Beenden  einer  solchen  Routi¬ 
ne  gibt  es  zwei  Möglichkeiten:  Ent¬ 
weder  kam  der  Programmbefehl 
aus  dem  Direktmodus.  In  diesem 
Fall  springt  man  in  die  Interpreter¬ 
schleife  (JMP  $C474)  zurück,  damit 
der  Computer  READY  meldet.  Kam 
das  Kommando  aber  aus  einem 
Basic-Programm,  so  muß  man  mit 
JMP  $0079  m  die  CHRGOT-Routine 
zurückspringen,  damit  kein  Bereit¬ 
schaftszeichen  ausgegeben  wird. 
Mit  Hilfe  dieses  Flags  trifft  man  hier 
die  Unterscheidung. 


Nun  wenden  wir  uns  einem  ande¬ 
ren  Kapitel  zu,  der  Cursorverwal¬ 
tung.  Über  die  Zeropage  kann  je¬ 
derzeit  die  Cursorposition  festge¬ 
stellt  werden.  Die  Speicherstelle  211 
zeigt  die  Spalte,  214  die  Zeile,  in  der 
sich  der  Blinker  derzeit  befindet. 
Korrekte  Werte  liefern  die  zwei 
Adressen  aber  nur  innerhalb  eines 
Programms. 

Interessanter  ist  die  umgekehrte 
Verfahrensweise,  nämlich  das  Set¬ 
zen  des  Cursors  an  eine  beliebige 
Bildschirmposition.  Dazu  müssen  al¬ 
lerdings  vier  Adressen  geändert 
werden.  Glücklicherweise  nimmt 
uns  eine  Unterroutine  aus  dem  Be¬ 
triebssystem  diese  Arbeit  ab. 


Gewußt  wo  -  der  Cursor 


In  Maschinensprache  wird  das 
X-Register  mit  dem  Zeilenwert,  das 
Y-Register  mit  dem  Spaltenwert  ge¬ 
laden.  Danach  ruft  man  mit  JSR 
$E50C  das  Unterprogramm  auf. 

Von  Basic  aus  werden  die  zwei 
CPU-Register  über  die  Adressen 
781  und  782  geladen  (warum  das  so 
ist,  sehen  wir  in  der  nächsten  Folge): 
POKE  78L»Zeile«:  POKE  782,»Spal- 
te«:  SYS'SBK* 

Diese  Verfahrensweise  ist,  wie 
man  sieht,  wesentlich  komfortabler 
als  das  Hantieren  mit  den  Steuerzei¬ 
chen. 

Eine  andere  Zeropageadresse 
kann  uns  zu  einer  weiteren  Erleich¬ 


terung  verhelfen.  Jeder  kennt  das 
Problem,  den  Cursor  innerhalb  von 
Anführungszeichen  (»Gänsefüß¬ 
chen«)  zu  bewegen.  Es  werden  nur 
Steuerzeichen  ausgedruckt,  eine 
Bewegung  des  Zeigers  findet  nicht 
statt. 

Dieses  Manko  läßt  sich  durch  eine 
kurze  Maschinenroutine  beheben: 
LDA  #$00  ; 

lösche  Hochkommaflag 
STA  $D4  ; 

speichere  es  ab 
JMP  $FEAD  ; 
springe  in  die  NMI-Routine 

Ausgelöst  wird  diese  Routine 
durch  Drücken  der  RESTORE-Taste. 
Dazu  muß  vorher  der  NMI-Vektor 
(eine  nähere  Beschreibung  näch¬ 
stes  Mal)  auf  den  Beginn  unserer 
Routine  gestellt  werden.  Da  die  sehr 
kurz  ist,  legen  wir  sie  im  Kassetten¬ 
puffer  ab.  Dort  ist  sie  solange  sicher 
verwahrt,  bis  man  etwas  laden  oder 
abspeichern  will.  Hier  zunächst  der 
Einzeller,  der  die  Routine  in  den 
Bandpuffer  generiert: 

10  FOR  T=  828  TO  8  34:  READD:  PO¬ 
KE  T,D: 

NEXT:  DATA  169,  0,  133,  212,  76,  173, 
254:  POKE  792,  60:  POKE  793,  3 

Arbeitet  man  im  Hochkommamo¬ 
dus,  so  kann  man  durch  Drücken 
der  RESTORE-Taste  diesen  Be¬ 
triebszustand  abschalten,  der  Cur¬ 
sor  kann  dann  wieder  ganz  normal 
bewegt  werden. 

Abschließend  möchte  ich  noch 
sagen,  welche  Zeropageadressen 


Vorspann 


Programm¬ 

kopf 


Programm¬ 

kopf 

Wiederholung 


Vorspann 


Vorspann 


Nach¬ 

spann 


ENDE 


828 


829 


Headertyp 


830 


831 


832 


333  •  1019 

Programmname  —  Davon 
werden  16  Zeichen  angezeigt 


Der  Programmknopf 
im  einzelnen  mit  den 
jeweiligen  Adressen. 


1  r 

Endadresse  des 
Programms 


Bild  3.  Darstellung  eines  auf  Band  abgespeicherten  Programms 


Startadresse  des 
Programms 
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ohne  Komplikationen  von  eigenen 
Maschinenroutinen  genutzt  werden 
können,  was  im  hohen  Maße  vom 
Verwendungszweck  abhängt. 

Nicht  verändert  werden  dürfen 
solche  Speicherstellen,  die  vom  Be¬ 
triebssystem  gebraucht  werden,  al¬ 
so  die  Adressen  192  bis  244  und  160 
bis  162.  Hat  das  Maschinenpro¬ 
gramm  keine  Verbindung  zu  Basic, 
so  können  alle  Speicherstellen  zwi¬ 
schen  0  und  138  überschrieben  wer¬ 
den,  weil  sich  hier  nur  Basic- 
Parameter  befinden.  Eng  wird  der 
Platz  für  die  sogenannten  Utilities  — 
also  für  Basic-Ergänzungen  oder 
Hilfsprogramme,  Will  man  Daten 
nur  Zwischenspeichern,  kann  man 
sie  in  den  Bereich  zwischen  Adres¬ 
se  147  bis  159  packen.  Dort  sind  sie 
bis  zum  nächsten  Lade-  oder  Ab¬ 
speichervorgang  sicher. 

Dauerhaft  können  Daten  nur  am 
Anfang  und  am  Ende  der  Zeropage 
abgelegt  werden.  Dazu  gehören 
Adresse  0  bis  2  und  245  bis  254. 

Genau  diese  werden  aber  auch 
von  käuflichen  Basic-Erweiterungen 
gebraucht,  wodurch  es  zu  Komplika¬ 
tionen  kommen  kann.  Also  Vorsicht, 
erst  durch  vorheriges  Probieren  te¬ 
sten,  ob  man  sie  benutzen  darf! 

Damit  möchte  ich  für  heute  schlie¬ 
ßen.  In  der  nächsten  Folge  werden 
schwerpunktmäßig  der  Tastaturpuf¬ 
fer,  die  Basic-Vektoren  und  die  Ker- 
nalvektoren  behandelt. 

(Christoph  Sauer/ev) 

Listing  3  finden  Sie  auf  Seite  164 


Listing  4.  »Zeilen-RESTORE«  (Basic-Lader) 

10  REM  *-*****-*-*-*****■**■**■*■**-*******■*■*■#■*■#* 
■#■******■** 

20  REM  *■*•** 

**** 

30  REM  ****  ZEILENNUMMERNGESTEUERTES  RES 
TORE  ***-* 

40  REM  ■*•*** 

***-* 

50  REM  ****  1984  BY  CHRISTOPH  SAUER 

-*•**-* 

60  REM  *•*■**  HUBERTUSSTR.  14  /  8000  MUEN. 

19  **** 

70  REM  *-*■** 

80  REM  ********************************* 
********* 

90  FORT=0TD47 :  READDs  S=S+D:  NEXT :  IFS05219 
THENF'R  I  NT  "  FEHLER  "  :  END 

1 00  P0KE55 , 0 : P0KE56 , PEEK ( 56 ) - 1 : CLR : A=PEE 
K  (56) 

1 1 0  RESTORE : F0RT=A*256T0A*256+47 
120  READD 
130  POKET ,D 
140  NEXT 

150  PRINT  ■UNFERTIG.  START  MIT” :  PRINTE 
YS"A*256 

160  DATA032, 121 ,000,201,044 
170  DATA240 , 003 , 076 , 008 , 207 
180  DATA032, 115,000,032, 138 
190  DAT A205 , 032 , 247 ,215, 1 65 
200  DATA020, 133,063, 165,021 
210  DATA  133 . 0*64 , 032 ,019, 198 
220  DAT A032  ,  _  t-8 , 200 , 1 65 , 095 
230  DATA 164, 096, 056, 233, 001 
240  D.ATA032 , 036 , 200 , 076 , 1 16 
250  DATA 196, 116,196 
READY. 


'  i 

Listing  5.  »Zeilen-RESTORE«  (Assembler-Darstellung) 

1D00 

JSR 

$0079 

x 

CHRGGT,  LFD.  BASICZEICHEN 

1 D03 

CMP 

#$2C 

x 

KOMMA  ? 

1D05 

BEQ 

$  1 D0A 

X 

JA,  DANN  VERZWEIGEN 

1 D07 

JhP 

$CF08 

X 

SONST  'SYNTAX  ERROR' 

1D0A 

JSR 

$0073 

X 

CHRGET,  NAECHSTES  ZEICHEN 

1 D0D 

JSR 

$CD8A 

X 

AUSDRUCK  HOLEN 

ID  10 

JSR 

$D7F7 

X 

IN  2 -BYTE  FORMAT  WANDELN 

ID  13 

LDA 

$14 

X 

UEBERTRAGUNG  DER  ZEILE  NNR .  <LB> 

1 D  1 5 

STA 

$3F 

1 D  1 7 

LDA 

$15 

; 

HB  UEBERTRAGEN 

ID  19 

STA 

$40 

ID  1B 

JSR 

$C6  13 

X 

ADRESSE  DER  DATAZE ILE  BERECHNEN 

1D1E 

JSR 

$C8F8 

X 

NAECHSTE  DATAZE ILE  SUCHEN 

1D21 

LDA 

$5F 

1 D23 

LDY 

$60 

1D25 

SEC 

1 D26 

SBC 

#$0  1 

1D28 

JSR 

$C824 

r 

RESTORE  DURCHFUEHREN 

1D2B 

JMP 

$C474 

r 

RUECKSPRUNG  INS  BASIC 
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Listing  3.  »Basic-Switch«  (Assembler-Darstellung) 


BASICSWITCH 


*****************  CHRGET  ERGAENZUNG 
CHRGET  FORTFUEHREN 


1C00 

INC 

*7A 

1C0E 

Bt-E 

*IC06 

IC04 

I  IRC 

S7B 

1C06 

JSR 

$0079 

IC0S 

CMP 

#$FF 

1 COB 

BEQ 

*1C13 

1 C0D 

JMP 

$0079 

1 C  1 0 

JSR 

$0073 

IC  13 

CMP 

#*45 

IC  15 

BNE 

$1 C  1 A 

IC  17 

JMP 

$1CA8 

IC  IA 

CMP 

#$53 

IC1C 

BEQ 

*1C2I 

IC  IE 

JNP 

$CF08 

•  «***:•:*****«•  *«« 

I C2  1 

JSR 

*D79B 

1C24 

LDA 

*65 

1C28 

BEQ 

*1C2C 

1C28 

CPX 

SFB 

1C2A 

BCC 

S1C2F 

1 C2C 

JMP 

*0248 

1C2F 

STX 

SFC 

1 C3  1 

JSR 

S1CS5 

IC34 

LDX 

SFC 

1C36 

OEX 

1C37 

TXA 

1C38 

ASL 

1C3S 

ASL 

1C3A 

ASL 

1C3B 

TAY 

IC3C 

LDX 

#*00 

1C3E 

LDA 

*1020 ,Y 

1C4  1 

STA 

$2B,X 

1C43 

INY 

1C44 

I  NX 

1C45 

CPX 

#*04 

1C47 

BNE 

S1C3E 

1C49 

LDX 

#*00 

1C4B 

LDA 

* 1D20  ,Y 

1C4E 

STA 

*37.  X 

1C50 

INY 

ICSI 

INX 

1C52 

CPX 

#*02 

1C54 

BNE 

*  1  CAB 

1C56 

LDA 

SFC  ; 

IC58 

STA 

SFA 

1C3A 

JSR 

SC660 

**************** 

1C5D 

JSR 

SC68E  ; 

1C60 

JSR 

*0073 

IC63 

BEQ 

*  1C6B  I 

IC65 

CNF 

#*8F 

1 C67 

EEQ 

*1C79  ; 

ICG9 

BNE 

S1CG0 

ICSB 

LDY 

#S01 

1C6D 

LOA 

<*7A ) ,y; 

IC6F 

BNE 

S1C60  ; 

1C7I 

INY 

1C72 

CPY 

#*02 

IC74 

BME 

S1C6D 

1C76 

JMP 

*C474  ; 

TOKEN  =  *  ? 

JA,  DANN  VERZWEIGEN 
SONST  ZURUECK  INS  BASIC 
CHRGET.  NAECHSTES  ZEICHEN 
'E'  FUER  ERGAENZUNG 
NEIN/  DANN  U£ITER 

SONST  IN  ERGAENZUNGSROUTINE  SPRINGEN 
'S'  FUER  SWITCH  ? 

JA,  DANN  VERZWEIEN 
SONST  'SYNTAX  ERROR' 

.iS  FUER  SWITCH 
BYTEWERT  <0-255 »HOLEN 

WENN  WERT=3,  DANN  FEHLER 

7  WENN  WERTCANZAHL  DER  PROGRAMME ,  DANN  WEITER 
SONST  FEHLERMELDUNG 
PROGRAMMNUMMER  ABSPEICHERN 

ADRESSEN  43-5S  IN  ZWISCHENSPEICHER  ÜBERNEHMEN 
EINGABE WERT  *  8 


ZWISCHENSPEICHER  IN  REGISTER  43-46  SCHREIBEN 


ZWISCHENSPEICHER  IN  REGISTER  55-56  SCHREIBEN 


54€R  onuni 


LFD.  PROGRAMMNR . 

GLEICH  ALTER  PROGRAMMNR. 

BASIC  BEFEHL  CLR 
REM-  ZE ILA  AUSDRUCKEN 
CHRGET  ZEIGER  C7A.7B)  AUF  BASICSTART 
CHRGET,  NEUES  KOMANOO  HOLEN 
BEIM  ZEILENENDE  VERZWEIGEN 
■REM'  CODE  ? 

JA,  DANN  AUSDRUCKEN 
SONST  ZURUECK 

ZEILENENDE  AUCH  PROGRAMMENDE  ? 

NEIN,  DANN  ZURUECK 


PROGRAMMENDE ,  DANN  IN  BASIC  D IREKTMODUS 


1C79 

JSR 

SCAD7 

; 

LEERZEILE  AUSGEBEN 

IC7C 

LOA 

S7A 

J 

AKKU  AUF  L-BYTE  DES  STRINGS 

1C7E 

LOY 

$78 

Y  REG.  AUF  H-BYTE  DES  STRINGS 

1C80 

JSR 

*CB  IE 

STRING  C=REM  ZEILE)  AUSDRUCKEN 

1C83 

BEQ 

S1C76 

> 

ZURUECK  INS  BASIC 

***************** 

REGISTER  ABSPEICHERN 

1C85 

LDX 

SFA 

> 

ALTE  PROGRAMM!-« .  *  8 

IC37 

DEX 

1C88 

TXA 

1CS3 

ASL 

IC8A 

ASL 

ICSB 

ASL 

1C8C 

TAY 

IC9D 

LOX 

#*00 

ZEIGER  43-46  IN  ZWISCHENSPEICHER  UEBERNEHMEN 

1C8F 

LOA 

*2B,X 

1C31 

STA 

*1020 . 

.Y 

1C94 

INY 

IC35 

INX 

IC36 

CPX 

#*04 

1C38 

BNE 

$1C8F 

1 C9A 

LOX 

#*00 

1 

ZEIGER  55 -56  IN  ZWISCHENSPEICHER 

1C9C 

LDA 

*37  ,X 

1  CSE 

STA 

S1D20 . 

.  Y 

1  CA  I 

INY 

ICA2 

INX 

1CA3 

CPX 

#*02 

ICA5 

BNE 

$1C9C 

1CA7 

RTS 

s 

ZURUECK 

***************** 

<E  FUER  ERGAENZUNG 

1CA8 

JSR 

S1C85 

: 

ZEIGER  <43-56/  IN  ZWISCHENSPEICHER 

1CAB 

JSR 

*0073 

i 

CHRGET.  NEUES  ZEICHEN  HOLEN 

1CAE 

JSR 

SCD8A 

; 

NUMERISCHEN  AUSDRUCK  HOLEN 

j— nt  j- 

JSR 

SD  IBS 

i 

FLIESKOMMA  IN  2-BYTE  FORMAT  WANDELN 

lCbi 

LDA 

*FD 

; 

HOECHSTE  ADRESSE  DES  1 .  PROGRAMMS  = 

ICB6 

STA 

*2B 

; 

NIEDRIGSTE  ADRESSE  OES  2.  PROGRAMMS 

1CBB 

LDA 

SFE 

1CBA 

STA 

S2C 

1CBC 

LOA 

SB  5 

; 

EINBEGEBENER  WERT 

1CBE 

CLC 

1CC1 

STA 

SFD 

; 

UND  ABSPEICHERN  CL-BYTE) 

1CC3 

LOA 

*64 

1CC5 

AOC 

SFE 

1 

ADDITION  DER  H-BYTES 

1CC7 

STA 

SFE 

; 

UNO  ABSPEICHERN 

ICC9 

LDA 

SFB 

; 

ANZAHL  DER  VERWALTETEN  PROGRAMME  HOLEN 

1CCB 

STA 

SFC 

t 

UND  DER  LFD.  PROGRAMMNR .  GLEICHSETZEN 

I  CCD 

INC 

SFB 

; 

7  ANZAHL  DER  PROGRAMME  UM  1  ERHOEHEN 

1CCF 

LDA 

*28 

; 

BAS  IC ANFANG  UM  1  ZURUECK 

ICD  1 

BNE 

SICD5 

1CCI3 

DEC 

*2C 

1CD5 

DEC 

S26 

ICD7 

JSR 

SE3F3 

; 

0  AN  DEN  BASICANFANG  UND  BA .  UM  EINS  ERHOEHEN 

1  CDA 

LDA 

SFE 

* 

UEBERPRUEFUNG,  OB  DIE  NEUE  BAS ICEMDADRESSE 

1CDC 

CMP 

*0284 

j 

UEBERHAUPT  NOCH  IM  SPEICHERBEREICH  LIEGT 

1CDF 

BCC 

S1CFI 

ICE  I 

BNE 

S1CEA 

ICE  3 

LDA 

SFD 

1CE5 

CNF 

*0283 

ICE8 

BCC 

SICF  1 

LIEGT  ADRESSE  IM  SPEICHERBEREICH.  DANN  WEITER 

I  CE  A 

LDA 

«*0C 

/ 

SONST  FEHLERMELDUNG  <L -BYTE  OER  FM  LflOEN) 

ICEC 

LDY 

#$C0 

; 

H-8YTE  LADEN 

1CEE 

JMP 

SCB1E 

; 

STRING  ’REDO  FROM  START'  AUSDRUCKEN 

1  CF  1 

LDA 

*FD 

BERECHNETES  BASICENOE 

1CF3 

STA 

*37 

; 

DEM  ECHTEN  GLEICHSETZEN 

1CF5 

LDA 

SFE 

1CF7 

STA 

*38 

1CFS 

JSR 

SCS44 

BASIC  ROUT  I  EIXE  NEW 

ICFC 

LDA 

SFC 

; 

LFD .  PROGRAMM-« .  = 

1CFE 

STA 

SFA 

; 

ALTE  PROGRAMM-« 

1000 

JMP 

S1C31 

EINSPRUNG  IN  DIE  SWITCH  ROUTINE 

***************** 

INITIALISIERUNG 

1D03 

LOX 

#*00 

I D05 

STX 

SFA 

i 

ALTE  PROGRAMMNR.  INITIALISIEREN 

1007 

STX 

*74 

; 

CHRGET  AENDERN 

1D03 

INX 

1 00A 

STX 

SFB 

; 

ANZAHL  DER  PROGRAMME  UNO 

1D0C 

STX 

SFC 

i 

LFO.  PROGRAMMNR.  AUFI 

ID0E 

LDA 

*2B 

ID  10 

STA 

*F0 

s 

HIMEM  ZEIGER  INITIALISIEREN 

ID  12 

LOA 

S2C 

1014 

STA 

SFE 

ID  16 

LOA 

BS4C 

; 

CHRGET  AENDERN 

ID  18 

STA 

*73 

ID  1 A 

LOA 

##  IC 

ID  IC 

STA 

*75 

101E 

RTS 

Listing  3.  »Basic-Switch«  (Assembler-Darstellung,  Schluß) 
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Bild  links:  Von  Balkon 
zu  Balkon.  Oie  Gegen¬ 
stelle  (Pfeil)  ist  immer¬ 
hin  200  m  entfernt. 
Daneben  in  Großauf¬ 
nahme  das  Empfangs¬ 
gerät 


Man  stelle  sich  vor:  Der  Nachbar  morst 
empfängt  die  Zeichen.  Auf  dem  Bildschirm 
Nicht  möglich?  In  Sindelfingen  schon. 
Lichtzeichen.  Datenfernübertragung 


Die  Nachbarn  haben  sich 
inzwischen  daran  ge¬ 
wöhnt.  Immer  wenn  es  dun¬ 
kel  wird,  blinken  auf  zwei 
Balkons  Morsezeichen  auf. 
Dann  wissen  die  Anwohner, 
daß  die  beiden  19jährigen 
Freunde  Mark  Schneider 
und  Dietmar  Schwuchow 
wieder  mit  ihren  Computern 
spielen. 

Die  Computer-Karriere 
der  beiden  begann  vor  zwei 
Jahren:  Wie  viele  andere 
auch  studierten  sie  Handbü¬ 
cher,  tippten  Listings  ab, 
schrieben  schließlich  eige¬ 
ne  Spiele  und  »Nutzprogram¬ 
me«.  Im  Frühjahr  brach  bei 
beiden  der  Spieltrieb  durch. 
»Wir  waren  es  leid,  immer 
getrennt  mit  unseren  Com¬ 
putern  zu  arbeiten.  So  kamen 
wir  auf  die  Idee,  sie  als  Kom¬ 
munikationsmittel  einzuset¬ 
zen.  Ein  Kabel  oder  ein 
Akustikkoppler  war  uns  je¬ 
doch  zu  langweilig«,  erklär¬ 
ten  Dietmar  und  Mark,  die 
beide  gerade  ihr  Abitur  er¬ 
folgreich  hinter  sich  ge¬ 
bracht  haben. 

Die  Freunde  wohnen  so 
nah  beieinander,  daß  sie  sich 
vom  Balkon  aus  zuwinken 
können.  Daher  erschien  es 
ihnen  am  einfachsten,  Licht¬ 
impulse  für  die  Datenüber¬ 
tragung  zu  nutzen.  Schnell  ei¬ 
nigten  sich  die  Elektronik- 


Fans  über  diesen  Weg.  »Klar 
wußten  wir  von  ersten  Mo¬ 
ment  an,  daß  wir  damit  keine 
professionelle  Datenfern¬ 
übertragung  machen  kön¬ 
nen.  Was  uns  reizt,  ist  viel¬ 
mehr  das  Basteln  und  Spie¬ 
len.  Unter  diesem  Vorzei¬ 
chen  sehen  wir  auch  unser 
selbstgebautes  Lichttelefon«. 
Für  Mark  und  Dietmar  zählt 
das  Außergewöhnliche  ihrer 
Sende-  und  Empfangsein¬ 
richtung  mehr  als  ein  tatsäch¬ 
licher  Nutzen. 

Vier  Monate  brauchten  sie, 
um  die  Idee  in  die  Tat  umzu¬ 
setzen.  Jetzt  spielen  sie  zu¬ 
sammen  »Schiffchen  versen¬ 
ken«  —  jeder  an  seinem  Com¬ 
puter.  Der  übernimmt  mittler¬ 
weile  »artig«  die  Ver-  und  Ent¬ 
schlüsselung  der  Daten  so¬ 
wie  das  »Morsen«  bei  der 
Übertragung.  Vier  Bit  hu¬ 
schen  in  jeder  Sekunde  von 
Balkon  zu  Balkon  und  über¬ 
mitteln  die  Züge  an  den  je¬ 
weils  anderen  Computer. 

Zunächst  machten  sich  die 
Computer-Freaks  über  die 
Hardware  her.  Die  beiden 
Computer,  ein  C  64  und  ein 
Sinclair  ZX  Spectrum,  muß¬ 
ten  durch  entsprechende 


Elektronik  mit  je  einer  Lampe 
als  Sender  und  einem  Fotowi¬ 
derstand  als  Empfänger  ver¬ 
bunden  werden. 


Ins  Innenleben  des  Compu¬ 
ters  wurde  nicht  eingegriffen 


Da  Mark  und  Dietmar  nicht 
unbedingt  in  das  Innenleben 
der  Computer  eingreifen 
wollten,  nutzten  sie  die  vor¬ 
handenen  Anschlüsse.  Der 
Tonausgang  dient  zum  An¬ 
steuern  der  Lampe:  beim  C 
64  ist  dies  der  Audio-Ausgang 
und  beim  ZX  Spectrum  der 
Recorderanschluß.  Den  Si¬ 
gnalempfang  übernimmt  der 
jeweilige  Joystick-Port. 

Es  war  von  vornherein  vor¬ 
gesehen,  nur  bei  Dunkelheit 
zu  übertragen.  Trotzdem  — 
die  erste  Schaltung  erwies 
sich  bei  den  Testläufen  als  zu 
unempfindlich.  Mit  einer  ver¬ 
besserten  Elektronik  war 
dieses  Problem  schnell  ge¬ 
löst. 

Nachdem  sich  die  beiden 
Freunde  auf  einen  gemeinsa¬ 
men  Code  geeinigt  hatten, 


kam  der  große  Moment:  der 
erste  richtige  Übertragungs¬ 
versuch.  Jedem  Bustaben 
wurde  ein  Fünf-Bit-Code  zu¬ 
geordnet.  Es  handelte  sich 
um  eine  serielle  Übermitt¬ 
lung,  wobei  die  Lampe  bei 
gesetztem  Bit  kurz  aufblinkte. 
Das  Senden  begann  mit  ei¬ 
nem  Synchronisationssignal, 
um  damit  den  empfangen¬ 
den  Computer  auf  den  Über¬ 
tragungstakt  einzustellen.  Da 
Basic  für  diese  Zwecke  nicht 
präzise  genug  arbeitet,  ka¬ 
men  Mark  und  Dietmar  auf 
die  Idee,  den  internen  Zeit¬ 
zähler  zu  nutzen.  Es  funktio¬ 
nierte,  die  Daten  wurden  im 
Sekundenrhythmus  übertra¬ 
gen  —  jede  Sekunde  ein  Bit. 

Ganz  zufrieden  waren  die 
Elektronik-Tüfftler  noch  nicht. 
Bei  mehr  als  20  Zeichen  gab 
es  noch  Ungenauigkeiten  in 
der  Übertragung.  Außerdem 
war  ein  Baud  (Bit  pro  Sekun¬ 
de)  doch  ein  bißchen  zu  lang¬ 
sam.  Fazit:  Die  Software  wur¬ 
de  umgeschrieben,  so  daß 
die  Geschwindigkeit  jetzt 
vier  Baud  beträgt.  Auch  bei 
größeren  Datenmengen  fällt 
nur  selten  ein  gesendetes  Bit 
über  den  Balkon  —  die  Infor¬ 
mation  kommt  zuverlässig 
beim  anderen  an. 
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den  muß,  bevor  er  deco¬ 
dieren  darf.  Das  Synchro¬ 
nisationssignal  dauert 
drei  Sekunden,  dann  folgt 
eine  Sekunde  lang  Sende¬ 
pause.  Erst  jetzt  wird  die 
eigentliche  Nachricht  ge¬ 
schickt,  ebenfalls  im  Vier¬ 
telsekundentakt. 

Die  Übertragungsrich¬ 
tung  wechselt  am  Ende 
der  Mitteilung  automa¬ 
tisch  und  der  vorherige 
Empfänger  startet  seinen 
Sendevorgang  mit  dem 
Synchronisationssignal . 

Wie  kann  der  Empfän¬ 
ger  dem  Sender  mitteilen, 
daß  er  nur  »Schrott«  mitbe¬ 
kommt,  wenn  die  Übertra¬ 
gung  immer  nur  auf  eine 
Richtung  festgelegt  ist? 
Dafür  gibt  es  eine  Ma- 
schinen-Code-Routine. 

Falls  der  Empfänger 
während  der  Übertra¬ 
gung  einen  Fehler  fest¬ 
stellt,  so  drückt  er  einfach 
eine  Error-Taste,  beim  C 
64  ist  dies  die  obere  linke 
Pfeiltaste.  Damit  schaltet 
er  seinen  Computer  auf 
»Texteingabe«,  was  be¬ 
deutet,  er  kann  jetzt  sen¬ 
den  und  dem  anderen 
mitteilen,  daß  etwas  falsch 
angekommen  ist.  Das 

Synchronisationssignal 
dauert  dann  —  zur  Unter¬ 
scheidung  von  normaler, 
fehlerfreier  Übermittlung 
—  allerdings  10  Sekun¬ 
den.  Obwohl  der  andere 
Computer  in  dem  Moment 
noch  eifrig  weitersendet 


Die  beiden  Elektronikbastler 


mit  einer  Taschenlampe  und  Ihr  Computer 
zeigt  er  Ihnen  an,  was  Ihr  Nachbar  will. 
Zwei  Computer  senden  und  empfangen 
von  Balkon  zu  Balkon. 


Derzeit  arbeiten  Mark  und 
Dietmar  an  der  nächsten  Ver¬ 
besserung  ihrer  Datenfern¬ 
übertragung.  Die  Auswer¬ 
tung  von  zwischengespei¬ 
cherten  Daten  ist  momentan 
erst  möglich,  nachdem  alle 
Bits  im  Computer  angekom¬ 
men  sind.  Geplant  ist  ein  Ma¬ 
schinenprogramm,  das  die 
empfangenen  Zeichen  sofort 
decodiert  und  ausdruckt. 
Die  Lust  am  Basteln  hält  wei¬ 
ter  an.  Das  nächste  Projekt  — 
ein  Plotter  aus  Fischer- 
Tbchnik-Bauteilen  —  steht 
kurz  vor  der  Vollendung. 
Aber  auch  den  »Ernst  des  Le¬ 
bens«  will  sich  —  zumindest 
Mark  —  mit  Computern  ver¬ 
süßen.  Bereits  am  Gymnasi¬ 
um  hat  er  Lehrer  »gespielt«. 
Jetzt  versucht  er,  sein 
Computer-Wissen  in  der 
Volkshochschule  »loszuwer¬ 
den«. 

(M.  Schneider/ 
D.  Schwuchow/kg) 


Ablauf  der 
Datenübertragung 

Die  Datenübermittlung 
beginnt  wie  es  sich  ge¬ 
hört:  Der  Sender  »klingelt« 
zunächst  beim  Empfän¬ 
ger.  Dazu  setzt  er  ein 
Blinksignal  von  lh  Hz,  das 
bedeutet  2  Sekunden 
Licht  an,  2  Sekunden  aus 
und  so  weiter.  Der  Emp¬ 
fänger  muß  seine  Bereit¬ 
schaft  signalisieren.  Kenn¬ 
zeichen:  einmal  4  Sekun¬ 
den  lang  aufblinken.  Wird 
dieses  sogenannte  Bereit¬ 
schaftssignal  erkannt, 
schaltet  der  vorher  blin¬ 
kende  Computer  auf  Text¬ 
eingabe  um  und  beginnt 
zu  senden.  Der  »angeklin¬ 
gelte«  Computer  stellt 
nach  dem  Abschicken 
des  Bereitschaftssignals 
sofort  auf  Empfang  um. 


Damit  ist  die  Richtung  der 
Informationsübermittlung 
festgelegt.  Sie  wechselt 
jetzt  regelmäßig  ohne  vor¬ 
heriges  »Klingeln«. 

Jeder  Sendevorgang 
beginnt  mit  einem  Syn¬ 
chronisationssignal  —  ei¬ 
nem  A  ~ .  linken  von  3  Se¬ 
kunden  Dauer.  Eine  Se¬ 
kunde  später  folgen  die 
Kontrollbytes:  Zweimal 

fünf  Bit  im  Viertelsekun¬ 
denrhythmus.  Damit  wird 
dem  empfangenden 
Computer  mitgeteilt,  wie¬ 
viele  Zeichen  die  Nach¬ 
richt  beinhaltet  und  wie  oft 
demnach  die  Empfangs¬ 
schleife  durchlaufen  wer- 
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(er  hat  ja  keine  Ahnung, 
daß  etwas  nicht  richtig  rü¬ 
berkommt)  erkennt  er  ein 
Dauersignal  von  mehr  als 
5  Sekunden.  Nach  der 
Warnung  schaltet  er  auf 
Empfang,  um  die  Fehler¬ 
meldung  des  anderen 
aufzunehmen. 


Hardwarebeschreibung 


Computer  und  ein  Teil 
der  Elektronik  sind  im 
Zimmer  untergebracht  — 
der  Rest  des  sogenannten 
Lichttelefons  steckt  in  ei¬ 
nem  Sende-  und  Emp¬ 
fangskästchen  auf  dem 
Balkon.  Bild  3  zeigt,  was 
drinnen  und  was  draußen 
steht. 

Mark  und  Dietmar  müs¬ 
sen  bei  der  Datenüber¬ 
tragung  eine  Strecke  von 
etwa  200  m  überwinden. 
Das  erfordert  ein  relativ 
intensives  Lichtsignal,  da¬ 
mit  die  Information  über¬ 
haupt  beim  anderen  an¬ 
kommt.  Eine  12V/10W- 
Lampe  erbringt  die  not¬ 
wendige  Leistung. 


Als  Spannungsquelle 
für  die  Lampe  dient  ein 
ausrangierter  (Renn- 
bahn-)Trafo.  Die  12V  des 
Trafos  sind  außerdem  mit 
einem  Spannungsregler 
des  Typs  7805  verbun¬ 
den,  der  für  eine  konstan¬ 
te  5V-Spannung  der  zu¬ 
sätzlichen  Hardware 
sorgt  (Bild  1). 

Die  Sende-  und  Emp¬ 
fangskästchen  sind  mit 
Schirmklemmen  am  Bal¬ 
kongeländer  befestigt. 
Nimmt  man  den  Regen¬ 
schutz  —  aus  Pappe  und 
aufgeklebter  Aluminium- 
folie  —  ab,  so  wird  ein 


quaderförmige  Holzge¬ 
häuse  von  7  x  7  x  12  cm 
frei,  In  die  Vorderwand 
wurde  ein  Loch  für  die 
Linse  gesägt,  die  wieder¬ 
um  fest  in  einem  Papp¬ 
rohr  sitzt.  Das  Sendeele¬ 
ment  (Lampe)  und  Emp¬ 
fangsteil,  der  lichtemp¬ 
findliche  Widerstand 
(LDR),  müssen  im  Brenn¬ 
punkt  der  Linse  sein.  Da 
diese  fest  eingebaut  ist, 
wird  eine  genaue  Einstel¬ 
lung  nur  durch  Verschie¬ 
ben  der  Platine  erreicht, 
auf  die  die  Bauteile  gelö¬ 
tet  sind  (Bild  6). 


; 

i 

>)12V 

Viow 

- KH  330  h* 

LED  t 

^  1 

"’i 

zur  Steuerele! 
(im  Raum) 

Kabel 

ctronik 

Bild  3.  Die  Verbindung  2wischen  drin 

Kamera-Elektronik 

(draußen) 

nen  und  draußen 

Bild  5.  C  64  Empfangs-Block 
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Die  Kästchen  auf  dem 
Balkon  sind  über  ein  vier- 
poliges  abgeschirmtes 
Kabel  mit  der  Elektronik 
im  Zimmer  verbunden. 
Das  Ende  des  Kabels  bil¬ 
det  ein  DIN-Stecker,  mit 
der  in  Bild  2  dargestellten 
Stiftbelegung. 

Das  Senden  funktioniert 
nach  einem  einfachen 
Prinzip:  Beim  Morsen  wird 
für  logisch  »1«  am  Audio- 
ausgang  des  Computers 
ein  Tonsignal  abgegeben, 
das  durch  die  Schaltung 
(Bild  4)  verstärkt  und  digi¬ 
talisiert  wird.  Als  Folge  da¬ 
von  schließt  das  Relais 
und  die  Lampe  im  Sende¬ 
kästchen  leuchtet  auf. 

Beim  Empfangen  (Bild 
5)  -vergleicht  der  Opera¬ 
tionsverstärker  (OP  3)  die 


Bild  4.  C  64  Sende-Block 


E:  Sendelampe  oder  Empfangselement 

P:  Verschiebbare  Platine 

L:  Linse  0  35  mm,  Brennweite  7  cm 

S:  Befestigungsschraube  Bild  6.  Aufbau  des  Sende-  und  Empfangskästchens 


Zeichencodierung 


Code 

11111 

00001 

00010 

00011 

00100 

00101 

00110 

00111 

01000 

01001 

01010 

01011 

01100 

01101 

01110 

01111 

10000 

10001 

10010 

10011 

10100 

10101 

10110 

10111 

11000 

11001 

11010 

11011 

11100 

11101 

11110 


Tafel  1 

Space 

A 

B 

c 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

0 

R 

S 

T 

U 

V 
W 
X 

Y 
Z 

Tafel  2 


Tafel  2 

0 

1 

2 

3 

4 

5 

6 
1 
8 
9 
( 

) 

& 

+ 

* 

/ 


> 

< 

? 

i 


Die  Zeichen  aus  Tafel  2  werden  als 
Zwei-Byte-Code  verschlüsselt.  Das 
Byte  »11011«  dient  als  »Schaltby¬ 
te«  zu  dieser  Tafel.  Die  Zeichen 
»Komma«  und  »Doppelpunkt«  wer¬ 
den  aus  eingabetechnischen  Grün¬ 
den  als  »■«  beziehungsweise  als 
»[« eingegeben. 


Signale  von  beiden  Span¬ 
nungsteilern,  die  durch 
den  lichtempfindlichen 
Widerstand  (LDR)  mit 
dem  100  KOhm-Wider- 
stand  und  dem  Regler 
47  KOhm  gebildet  wer¬ 
den.  Dieser  Verstärker  ist 
auch  für  die  hohe  Emp¬ 
findlichkeit  verantwort¬ 
lich.  Die  nachfolgende 
Schaltung  ist  für  langsame 
Heiligkeitsschwankungen 
unempfindlich.  Lediglich 
bei  Lichteinfall  setzt  sie 
ein  Flipflop  und  nimmt  es 
bei  Dunkelheit  zurück. 
Dieses  Flipflop  steuert 
das  Relais  für  den  Joystick- 
Eingang  an.  Darüber  hin¬ 
aus  bietet  es  eine  doppel¬ 
te  Kontrolle  beim  Emp¬ 
fang:  sowohl  auf  dem  Bal¬ 
kon  beim  Emstellen  der 
Kästchen  über  die  LED  als 
auch  im  Zimmer  durch 
den  BEEP. 
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Erläuterungen  zum  Lichttelefon-Listing: 

Zeilen  6-31 

Allgemeine  Vorbereitungen 

Einlesen  der  MC-Daten,  Setzen  der 
Tonregister 

40-42 

Speicherstelle  828  wird  auf  ihren  In¬ 
halt  abgefragt.  Daraufhin  wird  ent¬ 
sprechend  zu  »Empfang«  oder  »Sen¬ 
den«  verzweigt.  Diese  Konstruktion 
entstand  aus  dem  Wunsch,  alle  ge¬ 
setzten  Variablen  durch  »RUN«  zu 
löschen  und  nicht  einzeln. 

100-115 

Hauptmenü 

300-340 

Zunächst  werden  hier  die  beiden 
Kontrollbyte,  die  dem  Empfänger 
die  Länge  der  Nachricht  angeben, 
empfangen.  Dies  ist  nötig,  da  das 
eigentliche  Empfangsprogramm  die 
empfangenen  Bits  nur  zwischen¬ 
speichert  und  somit  kein  Endsignal 
erkennen  kann. 

400-483 

Decodierung  der  beim  Empfang  ab 
Speicherstelle  38000  zwischenge¬ 
speicherten  Bits  sowie  Textausgabe 

500-650 

Empfangsschleife 

10000-10140 

Texteingabe  und  anschließende 
Codierung 

Zwischenspeicherung  der  Bits  vor 
der  Sendung 

10200-10300 

Bildung  der  Kontrollbyte 

12000-12330 

Senden  der  Kontrollbyte 

12400-12650 

Sendeschleife 

14000-14034 

Empfangsbereitschaft  melden 

20000-20120 

»Klingeln« 

21000-21010 

MC-Daten 

0  REM  -fr-*****-*-***-******-**-*-*-**-#-**-****-**** 


** 

** 

1 

REM 

** 

LICHTTEL 

E  F  O  N 

** 

** 

** 

2 

REM 

*•* 

VON  M. SCHNEIDER 

UND 

** 

** 

D.SCHUCHOW 

*•* 

3 

REM 

** 

FR I EDR I CH-EBERT 

STR. 5/072 

** 

** 

** 

4 

REM 

** 

7032  S INDELFINGEN 

** 

5  : 

6  IX=828 

7  PRINT" L" : POKE53280 , 0 : P0KE532B 1,0: FOR I = 
49 152T049 1 72 : READ  A : POKE I , A : NEXT 

8  GOSUB 14000 

10  DIMX$(255) 

11  I X=B2S 

13  PR  INT  "LZ':  POKE532B0,0: P0KE53281  ,0 
20  P0KE56 , 1 45 : POKE650 , 1 28 
28  F0RI=54272T054296: POKEI ,0: NEXT 

30  POKE54272 , 1 : P0KE54273 , 0 : F0KE54277 , 1 00 
: P0KE5427B ,100: P0KE54276 , 1 7 

3 1  F0KE54279 , 1 : POKE54280 , 0 : P0KE542B4 , 1 00 
: P0KE54285 , 100: P0KE54283,33 

40  I FPEEK (IX) =3THENP0KE I X , 0 : BOT 0300 
42  I FPEEK (IX)=7THEN 10000 

100  PRINT"LÖ _ 

>1  • 


101  PRINT  "IS  HAUPTMENUE 


104  PR  I  NT  "  68BOTOTC '  KL  I NGELN  '  5S==>  Ö< 

K  >" 

105  PRINT-MMMIESENDEN  S==>  B< 

S  >" 

106  PRINT"gMMfc*LEMPFANGEN  *!==>  ©<  E 

>" 

107  PRINT "KOTHfrWKENDE  SS==>  ®< 

F8  >" 

110  GETA$: IFA$=" "THEN110 

111  I F A$= " K " THEN20000 

112  I F  A* =  "  S  "  THEN 1 0000 

113  I F A$= " E " THEN305 

114  IFA$=" H"THENPRINT : END 

115  GOTO110 

300  REM - EMPFANG - 

305  PR  INT  "L>3 _ 

306  PRINT  "IS  EMPFANG 

307  PR  I  NT  "  H » » ► » k  *  B 

EI  FEHLERN  iS  _  OHS _ GS  DRUECKEN  *" 

310  LE=10: PP=38000: GG5ÜB500 

320  L=0: FORJ=0TO4 

321  I FPEEK ( PP+J ) = 1 THENL=L+2~ ( 4- J ) 

322  NEXTJ 

330  H=0 :  F OR J =5T 09 

331  I FPEEK  (PP+J  )  =  1  THENH=H+2  '-  (9-J) 

332  NEXTJ 

340  PR T NT " MKKBBiBSBiga) I E  NACHRICHT  ENTHAELT 
"!  !*32+L"  ZEICHEN .  " 

350  LE=5* (H*32+L) : GOSUB500 

400  PRINT "U":ADD=0:PP=38000 

402  PRINT "0®. _ 


403  PRINT"1S  TEXTAUSGAB 

E 

404  PRINT " [aKKIF OLGENDES  WURDE  AUS  DEM  AE 
THER  GEFISCHT:" 

408  Af="  ABCDEPGHI  JKLMNOF'QRSTUVWXYZ 
0123456789  0  '&+-*/.  ,:  ;  ><=?!#'"  " 

410  FORJ= 1 T0LESTEP5 

415  X$=" " : FQRJJ=0TO4: X$=X*+RIGHT* (STR$ ( P 
EEK (PP+J-l+JJ) ) , 1) : NEXTJ J 

420  X=0:FCRK=1TO5: IFM ID$ ( X$ , K , 1 ) =" 1 "THEN 
X=X+2-'-  (5-K) 


421  NEXTK 

422  IFX=3 1THENX=0 

425  IFX=27ANDADD=0THENADD=32: NEXTJ 

430  PRINTMI Di ( A$ , 1+X+ ADD , 1 ) ; :ADD=0: NEXTJ 

: GOTO470 

470  FOR I =0TO700 : NEXT I : P0KE54296 , 0 

471  pr  i  nt  "  mmmmmmmmmamm _ 


472  PRINT-IS  ZUR  FORTSETZUNG  BITTE  'Fl' 

DRUECKEN !  ■" ; 

473  FORI=0TO120:GETA$: IFA$< >"S"THENNEXTI 
: GOTO480 

474  RUN 10 

480  PRINT "m 

11  • 

9 

481  PRINT"  ZUR  FORTSETZUNG  BITTE  'Fl'  D 

R'JECKEN !  " ; 

482  FORI=0TO120:GETA^: IFA$< >"i"THENNEXTI 
: G0T047 1 

483  RUN 10 

500  REM -  EMPFANGSSCHLEIFE  - 

510  I F ( PEEK ( 56320 ) AND 1 6 ) =0THEN5 1 8 
512  I FPEEK ( 197) =57THENP0KEI X , 7: RUN 10 


i 
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514  GOTO510 

518  FR  I  NT  '■  A 

E  U  F  T" 

520  I F ( PEEK ( 56320 ) AND 1 6 ) =0THEN520 
530  TI $="000000" 

540  I FT I <  54THEN540 
550  Z$="" 

560  F0RL=1T0LE 

562  I FPEEK (197) =57THENP0KE I X , 7 : RUN 1 0 
565  TI $="000000" 

570  IF ( PEEK ( 56320 ) AND 1 6 ) =0THENA=T I  :  G0T06 
00 

580  IFTI< 14THEN570 
590  POKEPP— 1+L,0: NEXTL: RETURN 
600  I F ( PEEK ( 56320 ) AND 1 6 ) =0THEN600 
610  B=T I 

620  X=(12-B+A)/2 

630  POKEPP- 1 +L , 1 : T I $= " 000000 " 

640  IFT I < X— 6THENGOTQ640 
650  NEXTL: RETURN 

10000  REM -  SENDEN  - 

10001  PRINT "L® _ 

10002  PRINT"ia  SENDEN 

II 

10005  PR I NT " BSBiKtn HR  TEXT?" 

10006  PRINT"®BITTE  NACH  JEDER  ZEILE  ktö  R 

ETURN  ^XlHlBllHi _ BSE  DRUECKEN" 

10010  A$= " ” : FÜR 1=1 TOS : I NPUT A$ : T$=T$+A$ : A 
$=" " : NEXTI 

10011  I FLEN ( T$ ) =0THENPOKE I X , 0 : RUN 1 0 
1 0020  PP=3B000 : P0KE54296 , 1 5 

10030  B $=" 1 1 11100001000100001 10010000101 
00110001 1 10100001001010100101101100" 
10032  E$=B$+" 01 10101 1 1001111 1000010001 10 
010100111010010101101101011111000" 

10034  B$=B$+" 11001 1 10101101 1111001110111 
1101111100000" 

1 0036  C$=  "  0 1 23456789  ( )  '  ?y+-*/  .  IC  ;  ><  =?  ! 

1 0050  ADD=0 : FÜR 1=1 TÖLEN <  T$  > 

10060  M$=MID$(T$, I , 1) 

10070  IFM$="  "THENX$=MID$ (B$ ,1,5): GOTO10 
100 

10080  IFASC  (M$)  >64ANDASC(M$X91THENX$=MI 
D$(B$, (ASC (M$) —64) *5+1 ,5) :GOTO10100 

10085  FORI I=1T0LEN (C$) 

10086  IFMID$ (C$, I I , 1 > =M$THENX$=" 1 101 1 "+M 
ID$(B$, ( I I— 1 ) *5+1 ,5) : ADD=ADD+1: GOTO 10100 

10087  NEXTI I: X$=" 00000" 

10100  FORJ=lTOLEN(X$) 

10110  POKEPP, (ASC(MID$(X$,J, 1) )-48) 

10120  PP=PP+1 
10130  NEXTJ : X$ ( I ) =X$ 

10140  NEXTI 

10200  REM -  LAENGE  FESTSTELLEN  - 

10205  L=LEN (T$) +ADD 

10206  PR INT "SED IE  NACHRICHT  ENTHAELT " L " Z 
EICHEN. " 

10210  H=INT (L/32) : L=L~H*32 

10300  L$=MID$(B$, (L*5) +1—160* <L=0> ,5)+MI 

D$(B$, ( H*5 ) + 1 - 1 60* ( H=0 ) ,5) 

12000  REM -  KONTROLLBYTES  SENDEN  - 

12100  pr int  - 
*  SENDUNG  LAEUFT  *E" 

12105  P0KE54273 , 1 00 : T I $= " 000000 " 

12106  I FT I $<  > " 000003 " THEN 12106 

12107  I FPEEK (IX) =7THEN I FT I $<  > " 0000 1 0 " THE 
N 1 2107 

12108  POKE54273 , 0 : I FPEEK (IX) =7THENP0KEIX 


12110  T I $= " 000000 " 

12120  IFTI<60THEN121 20 
12200  FQRI=1T0LEN(L$) 

12210  TI $="000000" 

12215  SYS49152: I FPEEK (54280) < >0THENPOKEI 

X ,3: FORI=0TO2000: NEXT: RUN10 

12220  IFMID$ ( L$ ,1,1) ="0"THEN12300 

12230  I  FT  K3THEN 12230 

12235  POKE54273, 100 

12240  IFTI<11THEN 12240 

12245  P0KE54273 , 0 

12300  IFT IC15THEN1 2300 

12320  NEXTI 

1 2330  FOR I =0TO3000 : NEXT I 

12400  REM -  HAUPTSENDESCHLEIFE  - 

1 2405  P0KE54273 , 1 00 : T I $= " 000000 " 

1 2406  I FT I $<  > " 000003 " THEN 1 2406 

12407  P0KE54273 , 0 
12420  TI $="000000" 

12430  I FT I <  60THEN 1 2430 

12510  FORZR=3S000TO3B000+5*LEN (T$ ) +5*ADD 
-1 

12520  TI $="000000" 

1 2525  S YS49 152:1 FPEEK ( 54280 ) <  >0THENPOKE I 

X , 3: FORI=0TO2000: NEXT: RUN10 

12530  I FPEEK (ZR)=0THEN 12600 

12540  I  FT  K3THEN 12540 

12545  P0KE54273 , 100 

1 2550  I FT I < 1 1 THEN 1 2550 

12555  PGKE5 4273,0 

12600  I  FT  K15THEN 12600 

1262C  MEXTZR 

12650  P OKEIX, 3: RUN10 

14000  REM -  BEREITSCHAFT  MELDEN  - 

14001  PR  I  NT  " EMPF  ANG5BERE I TSCH 
AFT  MELDEN  (J/N)?" 

14010  SET A$ : I FA$= " J " THEN 1 4020 

14011  I F A$< > " N " THEN 1 40 1 0 

14012  RETURN 

14020  FR I NT " MBttBE*  MELDUNG  WIRD  GE 
SENDET  *!E 

14030  P0KE54296 ,15: P0KE54273 , 1 00 : T I $= " 00 
0000" 

1 4032  I FT I $< > " 000004 " THEN 1 4032 
1 4034  POKE54273 , 0 : POKE I X , 3 : RETURN 

20000  REM -  KLINGELN  - 

20001  PR INT "US _ 

20002  PR  INT  "12  'KLINGELN 

BB5KET1 

20010  PGKE54296, 15 
20020  TI $="000000" 

20030  POKE54273 , 1 00 

20040  I FT I $<  > " 000002 " THEN20040 

20050  PQKE54273 , 0 : T I $= " 000000 " 

20052  I FT I $< > " 00000 1 " THEN20052 
20054  TI $="000000" 

20060  I F ( PEEK ( 56320 ) AND 1 6 ) =0THEN20 1 00 
20062  I FT I $< > " 00000 1 " THEN20060 
23070  GOTO20020 

20100  PRINT"M£SMinARK  IST  JETZT  EMPFANGS 
BEREIT! " 

20110  TI $="000000" 

20112  I FT I $<  > " 000004 " THEN20 1 1 2 
20120  GOTO 10000: REM  SENDEN 

21000  REM -  DATEN  FUER  MC-ROUTINE  - 

21010  DATA173, 0,220, 201 ,111,208,13,232,1 
38,201,20,208,7,162,0,169,152,141 ,8,212, 
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I  ie  Anzahl  der  eingegan- 
Igenen  Unterprogramme 
und  deren  unterschiedliche 
Thematik  machte  eine  Be¬ 
wertung  natürlich  nicht  ein¬ 
fach.  Wenn  Ihr  Programm 
diesmal  nicht  vorgestellt 
wird,  so  bedeutet  das  keine 
Abqualifikation,  Damit  Sie 
als  Leser  aber  auch  in  den 
Genuß  umfangreicherer  Un¬ 
terprogramme  kommen, 
werden  wir  gelegentlich  zu¬ 
sätzlich  zu  unserem  »Unter¬ 
programm  des  Monats«  an¬ 
dere  interessante  Einsen¬ 
dungen  veröffentlichen. 

Der  Autor  dieses  Pro¬ 
gramms  ist  ein  waschechter 
Berliner.  Jacques  Effenberg 
ist  35  Jahre  alt  und  von  Be¬ 
ruf  Maschinenschlosser.  Im 
März  1983  kaufte  er  sich  ei¬ 
nen  C  64.  Nachdem  er  sich 
ein  knappes  Jahr  mit  Basic 
versuchte,  stieg  er  auf  As¬ 
semblerprogrammierung 
um,  weil  er  mit  Maschinen¬ 
sprache  viele  Probleme  bes¬ 
ser  lösen  konnte.  Zum  Pro¬ 
gramm  selbst: 

Das  Programm  Maske  hat 
die  Aufgabe,  die  Program¬ 
mierung  von  Bildschirmmas¬ 
ken  zu  vereinfachen.  Der  er¬ 
ste  Befehl  erstellt  horizontale 
und  vertikale  Linien.  Die  an 
den  Schnittstellen  benötig¬ 
ten  Zeichen  werden  vom 
Programm  ermittelt  und  ein¬ 
gesetzt.  Der  zweite  Befehl 
löscht  vom  Benutzer  defi¬ 
nierte  Felder  in  der  Bild¬ 
schirmmaske.  Der  dritte  Be¬ 
fehl  dient  dazu,  Text  an  be¬ 
stimmte  Stellen  des  Bild¬ 


un 


schirms  zu  drucken.  Das  Ma¬ 
schinenprogramm  liegt 
Speicherbereich  von 
bis  50539.  Eigene  Fehlermel¬ 
dungen  und  das  Listen  der 
Basic-Zeile  in  der  der  Fehler 
vorkommt,  erleichtern  dem 
Benutzer  die  Arbeit. 


Parameterüber¬ 
gabe,  Fehler¬ 
meldungen 


1)  Linien  zeichnen 


Der  Befehl  für  Linien 
zeichnen  wird  in  Basic  wie 
folgt  programmiert: 

SYS  49152,  Richtung,  Zeile, 
Spalte,  Länge,  Farbe 

la)  Richtung 

Für  eine  horizontale  Linie  ge¬ 
ben  Sie  eine  0  und  für  eine 
vertikale  Linie  eine  1  ein.  Bei 
einer  Zahl  größer  als  1  mel¬ 
det  sich  der  Computer  mit 
der  Fehlermeldung: 

Richtung  Wert  zu  groß  (0 
bis  1)  in: 

und  listet  die  Zeile  Ihres 
Basic-Programms. 

lb)  Zeile 

Die  Zeilenangabe  liegt  im 
Bereich  von  1  bis  25.  Bei  Wer¬ 
ten  von  kleiner  als  1  oder 


größer  als  25  lautet  die  Feh¬ 
lermeldung: 

Zeilenwert  kleiner  1  oder 
größer  25  in: 

und  die  Basic-Zeile  wird  ge¬ 
listet. 

lc)  Spalte 

Die  Werte  für  die  Spalten¬ 
angabe  liegen  im  Bereich 
von  1  bis  40  und  Werte  klei¬ 
ner  als  1  oder  größer  als  40 
ergeben  die  Fehlermel¬ 
dung: 

Spaltenwert  kleiner  1  oder 
größer  40  in: 

sowie  eine  Anzeige  der 
Zeile. 

Id)  Die  Länge  kann  im  Be¬ 
reich  von  1  bis  40  für  horzion- 
tale  Linien  und  für  vertikale 
Linien  im  Bereich  von  1  bis  25 
liegen.  Werte,  die  nicht  in 
diesem  Zahlenbereich  lie¬ 
gen,  führen  zu  der  Fehler¬ 
meldung: 

Länge  Linie  zu  klein  oder 
zu  groß  in: 

Wollen  Sie  zum  Beispiel  eine 
horizontale  Lime  zeichnen, 
mit  dem  Spaltenwert  20  und 
geben  als  Länge  einen  Wert 
von  22  an,  so  führt  das  zur 
Meldung: 

Spalte  +  Länge  Linie  grö¬ 
ßer  40  in: 

da  der  Bereich  von  40  mögli¬ 
chen  Spalten  überschritten 
wird. 


Eine  vertikale  Linie  zum 
Beispiel  ab  Zeile  10  und  mit 
der  Länge  17  würde  die  Feh¬ 
lermeldung: 

Zeile  +  Länge  Linie  grö¬ 
ßer  25  in: 

ergeben,  da  das  Ergebnis 
von  10+17  den  möglichen 
Bereich  von  25  Zeilen  über¬ 
schreitet.  In  allen  drei  Bei¬ 
spielen  erfolgt  ein  LISTen 
der  Basic-Zeile. 

le)  Farbe 

Für  die  Farbwerte  würden 
Zahlen  im  Bereich  von  0  bis 
15  in  Frage  kommen.  Werte 
größer  als  15  führen  zu  kei¬ 
ner  Fehlermeldung. 


2)  Felder  löschen 


Um  bestimmte  Bereiche  auf 
dem  Bildschirm  zu  löschen, 
müssen  Sie  den  Befehl: 

SYS  50083,  ab  Zeile,  bis  Zei¬ 
le,  Spalte,  Länge 
eingeben. 

2a)  ab  Zeile,  bis  Zeile 

Wollen  Sie  zum  Beispiel 
die  ersten  fünf  Zeilen  auf  Ih¬ 
rem  Bildschirm  komplett  lö¬ 
schen,  müßte  der  Befehl  wie 
folgt  aussehen: 

SYS  50083,1,5,1,40 
also  ab  Zeile  1  bis  Zeile  5,  ab 
Spalte  1  und  40  Zeichen  lang. 
Ist  nur  eine  Zeile  zu  löschen, 
dann  ist  der  Wert  ab  Zeile 
gleich  dem  Wert  bis  Zeile. 

Geben  Sie  zum  Beispiel  für 
ab  Zeile  10  und  bis  Zeile  2 
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ein,  so  erfolgt  die  Fehlermel¬ 
dung: 

Zeile  1  ist  größer  als  Zeile  2 
in: 

sowie  ein  Listen  der  Basic- 
Zeile. 

2b)  Zahlenbereich 

Für  die  Bereichsangabe 
gelten  die  Werte  aus  Absatz 
1,  sowie  bei  Überschreitun¬ 
gen  auch  die  Fehlermeldun¬ 
gen. 

3)  Print 

Für  die  gezielte  Ausgabe  ei¬ 
nes  Textes  auf  dem  Bild¬ 
schirm  lautet  der  Befehl: 

SYS  50242,  Zeile,  Spalte, 
Farbe,  "Text" 

3a)  Zeile,  Spalte,  Farbe 

Alle  unter  Absatz  1  be¬ 
schriebenen  Zahlenberei¬ 
che  für  die  Angabe  bei  Zeile, 
Spalte,  Farbe  gelten  auch 
hier.  Ebenso  treffen  auch  die 
dort  erwähnten  Fehlermel¬ 
dungen  bei  einer  Bereichs¬ 
überschreitung  zu. 

3b)  "Text" 

Hier  kann  all  das  stehen, 
was  Sie  auf  dem  Bildschirm 
ausgeben  wollen. 

Ein  Beispiel: 

SYS  50242, 1,20, 2, "Probe" 
es  wird  in  diesem  Fall  in  der 
ersten  Zeile  ab  Spalte  20  das 
Wort  »Probe«  in  roter  Farbe 
auf  dem  Bildschirm  ausge¬ 
geben.  Sie  könnten  auch  vor¬ 
her  im  Programm  festlegen, 
daß  D$  =  "Probe"  ist,  schrei¬ 
ben  dann  SYS  50242,1,20,2, 
D$  und  erhalten  das  gleiche 
Ergebnis. 


Hatten  Sie  vor  diesem  Be¬ 
fehl  eine  grüne  Cursorfarbe, 
dann  wird ,  nach  dem  Ausge¬ 
ben  des  Wortes  »Probe«  in 
roter  Farbe,  Ihre  Cursorfar¬ 
be  wieder  grün  sein. 

4)  Erklärungen  zum  DATA-Programm 

4a)  Programmablauf 

In  Zeile  1000  werden  nach 
der  Dimensionierung  der 
Variablen  P  die  116  Prüfsum¬ 
men  für  das  Maschinenpro¬ 
gramm  in  P(I)  eingelesen.  Je¬ 
de  Prüfsumme  ist  das  Ergeb¬ 
nis  einer  Addition  von  zwölf 
DATA-Werten.  Die  Variable 
SP  addiert  die  Prüfsummen. 
Zeile  1130  überprüft  die  Ge¬ 
samtsumme  und  gibt  bei  ei¬ 
ner  Differenz  die  Meldung 
»Fehler  Prüfsumme«  aus.  Das 
Programm  wird  beendet. 

Das  Maschinenprogramm 
wird  ab  Zeile  1140  eingele¬ 
sen  und  gespeichert.  Die  Va¬ 
riablen  S  und  SI  addieren 
und  ZI  zählt  die  DATA  Werte. 

Ist  ZI  =  12  wird  in  Zeile  1160 
die  Variable  S  mit  der  jeweili¬ 
gen  Prüfsumme  P  (PI)  vergli¬ 
chen.  Ist  S  ungleich  P  (PI), 
verzweigt  das  Programm  zur 
Zeile  1210. 

In  Zeile  1190  wird  SI  mit  der 
Gesamtsumme  aller  DATAs 
verglichen.  Bei  einer  Diffe¬ 
renz  ergibt  sich  ein  Fehler  in 
der  letzten  DATA-Reihe.  Es 
kommt  zur  Ausgabe  der  Mel¬ 
dung  »Fehler  letzte  Reihe 
DATA«. 

Sind  alle  Werte  richtig  ein¬ 
gegeben,  wird  in  Zeile  1200 
nach  der  Meldung  »OK«  das 
Programm  beendet.  Beim 


Einlesen  von  DATA-Zeilen 
notiert  sich  der  Interpreter 
die  abzuarbeitende  Zeilen¬ 
nummer  in  den  Speicherstel¬ 
len  63  und  64  der  Zeropage. 
War  in  Zeile  1160  die  Summe 
von  12  DATA-Werten  und  die 
Prüfsumme  P  (PI)  ungleich, 
so  wird  in  Zeile  1210  die  Zei¬ 
lennummer  in  der  der  Fehler 
auftrat  in  festgehalten, 

Dann  wnd  der  Bildschirm 
gelöscht  und  in  Zeile  1240 
die  Meldung  »Fehler  in  Zei¬ 
le«  Z$  ausgegeben.  In  den 
Zeilen  1250  bis  1260  wird  der 
Befehl  »LIST«  und  die  Zeilen¬ 
nummer  in  den  Tastaturpuf¬ 
fer  gePOKEt.  Dazu  kommt  in 
Zeüe  1270  noch  der  Befehl 
»RETURN«  und  in  der  Spei¬ 
cherstelle  198  wird  dem  In¬ 
terpreter  mitgeteilt,  wieviel 
Stellen  im  Tastaturpuffer  be¬ 
legt  sind. 

Nach  dem  Befehl  »END«  in 
Zeile  1280  und  der  Ausgabe 
von  »READY«  befindet  sich 
der  Computer  in  einer  War¬ 
teschleife,  in  der  auch  die 
Speicherstelle  198  abgefragt 
wird.  Da  der  Wert  in  198  grö¬ 
ßer  als  0  ist,  arbeitet  der  In¬ 
terpreter  jetzt  den  Tastatur¬ 
puffer  in  folgender  Reihen¬ 
folge  (zum  Beispiel  bei  Feh¬ 
ler  in  Zeile  1290)  ab: 
Speicher  631  Wert  76  =  L 
Speicher  632  Wert  105  =  i 
(L  +  Shift  i  =  Kurzzeichen  für 
LIST) 

Speicher  633  Wert  49  =  1 
Speicher  634  Wert  50  =  2 
Speicher  635  Wert  57  =  9 
Speicher  636  Wert  48  =  0 
Speicher  637  Wert  13  =  Re¬ 
turn 

also  LIST  1290  und  die  Zeile 
mit  dem  Fehler  wird  gelistet. 


4b)  Programmverbindung 

Haben  Sie  alle  DATA- 
Werte  richtig  eingegeben 
und  der  Computer  hat  sich 
nach  einiger  Zeit  mit  »OK« 
wieder  gemeldet,  so  können 
Sie  jetzt  die  Zeilen  1000  bis 
1280  löschen.  Dann  geben 
Sie  die  folgende  Zeile  ein: 
1280  FOR  I  =  49152  TO 
50539:REÄD  X  :  POKE  I, 
X:NEXT:NEW 

und  speichern  das  Pro¬ 
gramm  ab. 

Wenn  Sie  das  Programm  in 
Zukunft  benutzen,  dann  wird 
nach  dem  Einlesen  des  Ma¬ 
schinenprogramms  in  den 
Speicherbereich  49152  bis 
50539  das  DATA-Programm 
gelöscht,  und  Sie  haben  den 
ganzen  Basic-Speicher  für 
Ihr  eigenes  Programm  zur 
Verfügung. 

Sind  Sie  Besitzer  eines  Dis¬ 
kettenlaufwerkes,  dann  kön¬ 
nen  Sie  in  der  Zeile  1280  statt 
»NEW«  den  Befehl  LOAD 
”...”,8  schreiben,  und  das 
DATA-Programm  lädt  nach 
dem  Einlesen  der  DATA-Zei¬ 
len  Ihr  eigenes  Programm 
gleich  nach. 

Zwischen  muß  der  Na¬ 
me  Ihres  Programms  stehen. 
Wenn  Sie  diese  Variante 
wählen,  dann  muß  aber  die 
erste  Zeile  Ihres  eigenen 
Programms  wie  folgt  ausse- 
hen: 

10  POKE  45,  PEEK  (174) :  PO¬ 
KE  46,  PEEK  (175) :  CLR 
Durch  diese  Lösung  wird 
das  DATA-Programm  auch 
gelöscht  und  Ihr  Programm 
wird  gleich  nachgeladen 
und  startet  sich  selbst. 

(Jacques  Effenberg/gk) 


nline.de 

iline.net 
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Dieses  Demo-Programm  zeigt  anschaulich  die  Möglichkeiten  des  Unterprogramms 

113  REM . . - - - 

20  REM  MASKE  DEMO  -PROGRAMM 

30  REM - - - - - 

40  : 

1 03  POKE53280 ,0: P0KE532B1 ,0: PRINTCHR* (14 
7) 

110  L=49152  :  REM  LINIE 

120  5=50083  : REM  FELD  LOESCHEN 

130  F: -50242  s  REM  PRIN  T 
140  REM 

150  REM  LINIE  43  *  VERTIKAL 
160  REH 

170  FÜR I = 1 T04 0 : 5YSL ,1,1,1,25,13: NEXT 
180  REM 

190  REM  LINIE  25  *  HORIZONTAL 
200  REM 

210  FÜR I  =  1 1025 : SYSL ,0 , 1 , 1 , 40 ,8 : NEXT 
220  REM 

230  REH  FELD  1  =  HAUP TMENUE 
240  REM 

250  SYSS, 1,5,12, 13: SYSL, 0, 1 , 1 ,40, 8s SYSL, 
0,5. 1 ,43, 8: SYSL, 1,1,12,25,3 
260  SYSL, 1 , 1 ,29,25, 8:SYSL, 0,2, 13, 16, 10:S 
YSL, 0,4, 13, 16, 10: SYSL, 1 ,2, 13,3,10 
270  SYSL, 1 ,2,28,3, 10: SYSP, 3, 16,4, " DEMO  - 
PPG" 

280  REM 

290  REM  FELD  2  =  SYS . 

300  REM 

31 0  SYSS .7,21,4,34: SYSL ,0,7,1,40,8: SYSL , 
0,21,1 ,40,3: SYSL, 1,1,4,25,8 
320  SYSL  , 1 , 1 , 37 ,25,8 
330  N= 1 : F QR I  =  1 0 1 0 1 SS  f  EP4 : SYSP , 1 , 6 ,3 , N : N= 
N+l : NEX i 

340  F0RI=9T019SrEP2:  SYSL,  0,1 ,6,3, 12-.NEX1 
350  FORI=9T017SfEP4: SYSL, 1 , I ,6 ,3, 12: SYSL 
,1,1,8,3,12: NEX I 

360  SYSP,  10, 10,5,  "SYS  49152  LINIE  ZEIC¬ 
HNEN" 

3 70  SYSP ,14,10,14, "SYS  50083  FELD  LOE 
SCHEN” 

380  SYSP, 18, 10, 13, "SYS  50242  PRINT  BIL 
OSCH. " 

39ß  REM 

400  REM  FELD  3  NOCH . 

413  REM 

428  SYSS, 24, 24, 5, 32: SYSL, 0,23, 1 ,40,8: SYS 
L , 0 , 25 , 1 , 40 , 8 

430  SYSL ,1,1,4,25,8: SYSL ,1,1,37,25,3 
440  SYSP, 24, 1 1 , 14, "NOCH  EINMAL  (J/N) ” 
450  REM 
468  REH 

478  GETXT: IF X$=" " FHEN470 

480  IFX  $="N’'  rHENFRINTCMR*  C  147)  :  LISI 

490  I F  X$= ” J "  T  HEN 1 00 

508  GOT 04 70 

READY. 


Das  Programm  »Maske«  in  Form  von  DATA-Zeilen 

20  REM  UP  MASKE  < DAT AS) 

30  REM  JACQUES  EFFENBERG 

40  REM - 

50  : 

1000  D I MP (115) : F ORI=0TO1 15: READX : P  CI > =X : 
SP=SP+X : NE XI 

1010  DATA1249, 1266,1206, 1429,1453,1416, 1 


184,1949, 1 754, 1732 

1 020  DATA 1 665 , 1 376 , 1 854 , 1 202 , 1 653 ,1611,2 
033,1588, 1979,1674 

1 030  DATA 1 433 . 1 523 , 1 343 , 1 359 , 1 493 , 1 984 , 1 
744,1413,1649,1693 

1040  DATA1883, 1478. 1422, 1121, 1447,1745,1 
952,1318,1747,1954 

1058  DA  f  A 1 5 1 9 , 1860, 1592.1781 , 1429,2066,1 
590 , 1 986 , 1 392 , 2063 

1068  DAT Ai  762, 1649 ,1811,1 225 , 1887 , 1537 , 1 
512, 1552, 1640, 1510 

1070  DATA 1878, 1306, 1379,1529, 1544,1473,1 
799. 1798, 1244, 1667 

'1080  DA i A 1 282 , 1244,1703,1404, 1342,1319,1 
350,1372,1414,1392 

i 098  DATA 1433 , 1529, 1 70G.2062. 1481, 1995, 1 
689, 1918, 1 744 ,2013 

1 100  DAIA2050, 1369,1363,1623, 1454,1322,1 
282,1264,934.663 

1 1 10  DATAS0B, 793,677,826, 723, 762,716,661 
,752.763 

1 120  DATA 736 , 827 , 564 ,788 , 759 , 387 
1  1 30  I F  SP<  >1681391»  IENPR I  NT  ”  FEI  ILER  PRUEF  S 
UMME  * " : END 

1 1 48  FÜR  I =49 1 521 050539 : READX : POKE I , X : S=S 
+  X 

1150  Z1=Z1H:S1=SHX 
1168  IFZi  =  12ANDS<  >P (Pi )  IHEN1210 
1 1 70  IFZ1=12THENP1=P14 i:S=0: Z1=0 
1180  NEXT 

1390  I FS 1 < > 1 68 1 39THENPR INT" FEHLER  LETZTE 
REIHE  DA  I A  ! " : END 
1 200  PR I  NI " OK . " : END 

Tl.  10  Z $=STR$  C PEEK  ( 64 )  «256+PEEK  ( 63 )  ) 

1  220  Z  1  =LEN  ( ZS- )  -  1 :  Z  2=2 :  SP =633 :  F’R  I  NTCHRf  ( 
147) 

1230  FORI=0T OZ 1-  1: Z  < I ) =VAL (M1D$ (ZT , Z2, 1 ) 

; : Z2=Z2+1 : NEXT 

1240  PRINT"  **  FEHLER  IN  ZEILE  :  "Z* 

1 250  P0KE63 1,76: P0KE632 , 1 05 
1 268  FOR I=0TOZ 1  - 1 : POKESP , Z ( I ) +  48: SF-SP+ 1 
:  NEXT 

1 2 70  POKEBP+ i , 1 3 : POKE 1 98 , Z 1 4  4 


1280 

END 

1290 

DATA 

169 

,  0,  141,  169,  2, 

141, 

170, 

•~> 

—  ? 

141, 

171, 

2,  141 

1300 

DATA 

172 

,  2,  141,  173,  2, 

141, 

174, 

■*- t 

141, 

175, 

2,  141 

1310 

DATA 

176 

,  2,  32,  43,  193, 

224, 

2,  1 

76, 

45,  142, 

169,  2 

1  320 

DATA 

32, 

43,  193,  202,  48 

,  52, 

224, 

25 . 

1  76, 

48 . 

1 34 ,  252 

1 330 

7 

DA1  A 

32, 

43,  193,  202,  48 

y  5<S  7 

224, 

40, 

176, 

52, 

134,  253 

1340 

DATA 

32, 

43,  193,  32,  126 

,  .192 

,  134 

,  — _JH  , 

,  43 

,  193,  142 

1  358 

da  m 

168 

,  2,  32,  2E,  193, 

76, 

32,  6 

224.  180,  238, 


8,  229,  162,  150.  32 

1360  DATA  167,  192,  23 
248,  32,  174,  192,  32,  68 

1378  DATA  229,  162,  0,  32,  167,  192,  232 
,  224,  28,  208,  248.  32 

1380  DA  I A  174,  192,  32,  68,  229,  162,  28 
,  32,  167,  192,  232,  224 

1390  DAtA  56,  208,  24S ,  32,  174,  192.  32 
,  182,  192,  173,  174.  2 

1408  DATA  208,  1,  96,  32,  68,  229,  174, 
175,  2,  32,  167,  192 

1410  DATA  232,  236,  176,  2,  208,  247,  32 
,  174,  192,  165,  57,  133 


174 
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Das  Programm  »Maske« -in  Form  von  DATA-Zeilen  (Fortsetzung) 

1420 

DA  VA 

20,  165,  5B ,  133, 

21, 

79 

19, 

166 . 

32 ,  2 

01,  1 66 ,  i 39 

1  430 

DATA 

153,  196,  32,  210 

,  255 

7 

,  16 

1 

3,  32, 

210,  255,  32 

144B 

DA  TA 

153,  192,  138.  242,  49 

,  1 7 

3,  1 

69. 

2,  208 

7  22,  224,  41 

1  450 

DA  i  A 

176,  40,  202,  169 

,  39, 

56, 

2j>fj 

t  25 

3 .  1 33 

,  254,  228,  254 

1  460 

DA  i'A 

176,  2,  232,  96 , 

200, 

7 

232., 

96. 

224, 

26,  240,  18 

14  70 

DA  FA 

202,  169,  24,  56, 

229, 

252 

1 3 

3.  254.  22 

8,  254,  176,  2 

1  48© 

DA  1  A 

232,  96,  208,  30, 

232 , 

96, 

2 

,  1  7 

4  ,  2 , 

i 69 ,  56 ,  141 

1  49Ö 

DAT  A 

175,  2,  569,  89, 

141  , 

1  76, 

2 

96, 

23S,  1 

74,  2,  169 

1500 

DATA 

89 ,  141,  175,  2 , 

1 69  , 

i  .Cll D  a 

141 

?  176,  2, 

96,  238,  174 

1510 

DATA 

2 ,  169,  120,  141, 

175, 

9 

169 , 

150 

7  141, 

176,  2,  96 

1520 

DATA 

173,  169,  2,  201, 

1  ,  2 

40  , 

4,  3 

2 ,  7 

4,  193 

,  96,  174 

1  530 

DATA 

169,  2,  189,  126, 

196 , 

133 

,  25 

1,  3 

2,  74, 

193,  96,  32 

1 540 

DATA 

253.  174,  32,  158 

.  183 

,  96 

1  £j 

6  T  2 

52 ,  32 

,  240,  233,  165 

1 550 

DATA 

253,  240,  11,  165 

,  209 

,  24 

,  i0 

1  ,  2 

53,  13 

3,  209,  144,  2 

1560 

DA  i  A 

230,  210,  32,  36, 

234, 

96, 

~2 

50  , 

193, 

160,  0 .  1 40 

157B 

DA1.  A 

1.70,  2,  32,  139, 

193, 

i  65 « 

,  145.  209 

,  173,  168,  2 

1580 

DATA 

145,  243,  173,  169,  2, 

201 

^  1, 

240 

Q 

00,  140,  170 

:  1593 

DA  VA 

2,  196,  254,  208, 

r>r» 

96, 

238, 

173 

,  2,  1 

98,  254,  240 

l  600 

DA  1  A 

13,  230 ,  252,  32, 

50, 

1  93 , 

32 , 

139 

,  193, 

173,  169,  2 

1610 

DATA 

16 ,  211,  96 ,  32 , 

139, 

193, 

173 

,  169,  2, 

16,  202,  173 

1620 

DATA 

169,  2,  201,  1,  2 

40,  4 

7  1 1 

2,  1 

94  ,  96 

,  32 ,  36 

1  630 

DATA 

195.  96,  173,  169 

-  2 , 

238  , 

•Jü  < 

173 

7  171, 

2 .  208 ,  1 4 

1  640 

DA  1  A 

198,  252,  32,  50, 

193, 

32, 

231 

,  19 

3,  230 

7  252,  32,  50 

1650 

DATA 

183,  86,  230,  252 

,  -3  2 , 

50  , 

193 

Tr» 

,  231, 

193,  198,  252 

:  1660 

DATA 

32,  50,  193,  206, 

171  , 

2 , 

96  , 

173, 

171, 

2,  208,  14 

1670 

DATA 

198,  253,  32,  50, 

193, 

7 

23  1 

,  19 

3,  230 

,  253,  32,  50 

193 

1680 

DATA 

193,  96.  2-30,  25.3 

7  32 , 

50, 

-r  •*? 

. 

7  231  , 

193,  198,  255 

1690 

DA  ( A 

32,  50,  193,  206, 

171, 

“? 

-*1-  ? 

96, 

162, 

0 ,  17 

7,  209,  221 

1  700 

DA!  A 

126,  196,  240,  33 

TTT 

22 

4,  1 

1  .  2 

7J8.  24 

6 ,  173,  1 69 ,  2 

i  71.0 

DÄ1  A 

208 ,  11,  162,  0 , 

139, 

126, 

196 

,  13 

3,  251 

,  142,  172,  2 

1  723 

DATA' 

96,  162,  0,  142, 

172, 

2,  2 

32 , 

139. 

126, 

196,  133,  251 

1  7  30 

DA  r  A 

96,  173,  169,  2, 

208,  . 

45, 

173, 

1  71 

.  2 .  2 

08  .  20  .  i  62 

1  740 

DATA 

0,  177,  209,  221, 

141, 

196 

,  24 

0,  2 

14,  23 

2,  224,  4,  208 

1  750 

DA  i  A 

246,  162,  1,  142, 

172, 

2 , 

96 , 

162, 

0  ,  17  7,  209 ,  22 ! 
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2110  DATA  192,  165,  251,  197,  252,  48,  1 

8,  240,  16,  32,  68,  229 


2120 

DA  TA 

162, 

180, 

32 , 

167, 

192 

239 

7  — 

o 

24,  2 

11,  2 

.08, 

243, 

32  , 

174 

2130 

DA  i  A 

192, 

96, 

—'s-  7 

110, 

192, 

138, 

24 

0,  22 

,  224 

,  41 

,  176 

,  13 

2140 

DATA 

202  , 

169, 

7Q  _ 

«_m1i  . 

229, 

253, 

13 

3.  254,  223,  254,  5. 

76, 

2 

2150 

DA1  A 

—  — 7 

96, 

208, 

8,  2 

96,  32. 

234 , 

192, 

135, 

5  92 

2160 

DA  TA 

■  7 

243, 

5  92, 

, 

1 35 , 

192, 

16 

6,  25 

1,  32 

,  240,  233,  1 

65 

2170 

DA  1  A 

253, 

240, 

1  1  , 

165, 

209 

,  24, 

10 

i,  25 

3,  13 

7  ~ 

09 ,  1 

44  , 

2 

2. 1 80 

DA1  A 

230, 

210 , 

169 

,  32, 

160 

,  8, 

1  45 

,  209 

,  200 

19 

6 ,  2u 

A  O 

~T  7  -*— 

08 

2  5  90 

DATA 

249  , 

228 , 

252 

,  240 

,  4, 

230  , 

25 

1,  208.  21 

7,  96,  32 

,  43 

2200 

DATA 

193, 

202, 

48 , 

A  1 

224. 

25, 

176 

,  37, 

134, 

214 

,  •->-£-  , 

43 

2210 

DATA 

193, 

202, 

48, 

32, 

224, 

40, 

176 

,  28, 

134, 

21  i 

TO 

A 

2220 

DATA 

193, 

1  73  ^ 

i  34 

o 

133, 

251, 

14 

2,  134,  2, 

32, 

253, 

174 

2230 

DATA 

TO 

119, 

1 96 , 

165, 

251 

,  141 

,  1 

34,  2 

:,  96, 

32 

94, 

i  92 

2240 

DATA 

32, 

5  5.0, 

192, 

32, 

138 , 

229, 

32 

,  164,  170,  96,  64,  93 

2250  DATA  91,  507,  109,  110,  112,  113,  i 

14,  115,  125,  64,  110,  112 


2260  DATA  114,  64,  109,  113,  125,  93  10 

7,  109,  112,  93,  110,  115 


2270 

DATA 

125 

,  90 

,  69. 

,  7.3 

,  76 

,  69 

,  78 

*  s 

7,  6r; 

?,  82, 

,  84 

.  32 

2280 

DATA 

60, 

49, 

32, 

•  r  % 

68, 

69, 

32, 

TO 

,  62, 

,  50, 

53, 

32 

2290 

DATA 

32, 

73, 

7P 

32  - 

58, 

83, 

SB, 

65 

,  76. 

,  84, 

69, 

73 

2300 

DA  I  A 

B7, 

69, 

82, 

84, 

32, 

60, 

49, 

32 

,  79, 

.  63, 

69, 

02 

2310 

DATA 

ro 

7 

62, 

52 . 

48, 

32 , 

73, 

78, 

32 

,  58, 

,  76, 

65, 

69 

2320 

DATA 

78, 

71, 

69, 

-,jL  t 

76, 

73, 

78, 

7 

,  69, 

,  32, 

90, 

85 

2330 

DATA 

32, 

60, 

32, 

79, 

68, 

69, 

82, 

32 

,  90, 

,  85, 

32, 

62 

2340 

DATA 

32, 

TT 

73, 

78, 

TO 

58, 

33, 

80 

t  65, 

,  76, 

34, 

69' 

2350 

DATA 

32, 

43, 

32 . 

76, 

65  ■, 

69, 

78, 

71 

,  69, 

,  32, 

76, 

73 

2360 

DATA 

78, 

73, 

69, 

T? 

'-J  —  T 

62, 

52, 

43, 

32 

7  32, 

.  73, 

78, 

32 

2370 

DATA 

58, 

90, 

69, 

73, 

76, 

69, 

32, 

43 

,  32, 

,  76, 

65, 

69 

2380 

DATA 

73, 

71, 

69, 

32  - 

76, 

73, 

78, 

73 

,  69, 

,  32, 

62, 

50 

2390 

DATA 

53, 

32, 

32, 

73, 

78, 

32, 

58, 

82 

,  73, 

.  67, 

72, 

84 

2400 

DATA 

35, 

78, 

~7  1 

-tjL-  > 

87, 

69, 

82, 

84 

,  32, 

,  70, 

35, 

32 

2410 

DATA 

62, 

32, 

40, 

43, 

45, 

49, 

41, 

32 

,  32, 

73, 

78, 

TT 

2420 

DATA 

58, 

90, 

69, 

73, 

76, 

69, 

32, 

49 

,  uz , 

73, 

83, 

84 

2430 

DATA 

32, 

Z-  O  ^ 

32, 

£jZi 

7  L 
/  u  ■ 

83, 

32, 

90 

,  69, 

,  73, 

76, 

69' 

2440 

DATA 

32, 

50. 

TO 

32  - 

73, 

78, 

TO 

58 

READY . 
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I 


I 


I 


I 


I 


I 


tiv  bald  mit  allem,  was  er 
sieht,  unzufrieden  sein.  Er 
wird  sagen:  Verdammt  noch 
mal,  ich  mache  meine  eige¬ 
ne  Mailbox.  Das  ist  ja  das 
elektronische  Äquivalent  zu 
einer  Zeitung.  Die  Medien 
per  DFÜ  ermöglichen  so  et¬ 
was  für  alle,  die  etwas  sagen, 
etwas  mitteilen  wollen.  Jede 
Mailbox  hat  ihre  eigene 
Handschrift,  ihre  eigenen  In¬ 
formationsecken,  wenn  auch 
ziemlich  viel  soziales  Ge¬ 
räusch  wie  beim  CB-Funk 
dabei  ist. 


I 


I 


Plant  Ihr  vielleicht  eine  Mailbox  oder 
auch  etwas  ähnliches? 


I 


I 


Wir  sind  dabei,  eine  elek¬ 
tronische  Mitfahrerzentrale 
zu  programmieren.  Der 
Schwarzmarkt  hier  in  Ham¬ 
burg  praktiziert  seit  acht  Jah¬ 
ren  eine  Mitfahrerzentrale. 

-Vv'.'r  wollen  so  etwas  über 
DFÜ  und  Computer  machen. 


I 


I 


Kostenlos,  oder? 


I 


Ja,  wenn  einer  aber  etwas 
spenden  will,  wird  das  natür¬ 
lich  gerne  gesehen,  aber 
grundsätzlich  soll  es  nichts 
kosten. 


I 


I 


Wie  seht 
Modems? 


Ihr  die  Lage  bei  den 


I 


I 


I 


I 


I 


Noch  eine  Frage:  Ist  BTX  eine  Kon¬ 
kurrenz  für  DFÜ? 

BTX  ist  von  der  Gebühren¬ 
politik  so  konzipiert,  daß  es 
einfach  viel  zu  teuer  ist.  BTX 
wurde  zu  einem  Zeitpunkt 
entworfen,  als  die  ganzen 
Mikro-  und  Kleincomputer 
noch  gar  nicht  absehbar  wa¬ 
ren.  Noch  einmal  direkter 
gesagt:  BTX  und  der  Cept- 
Standard  wurden  am 
Schreibtisch  konzipiert,  und 
die  meisten  Bildschirmtext¬ 
geräte  sind  nun  einmal  reine 
BTX-Geräte  und  keine  Com¬ 
puter,  und  zwingen  den,  der 
ein  BTX-Gerät  hat,  sich  zu¬ 
sätzlich  noch  einen  Compu¬ 
ter  zu  kaufen.  So  glaube  ich 
einfach,  daß  ein  Datennetz, 
das  die  grafischen  Möglich¬ 
keiten  eines  C  64  ausnutzt, 
sich  mehr  verbreiten  wird, 
als  BTX  von  der  Post,  das 
staatlich  unterstützt  wird. 


Die  Situation  bei  den  Mo¬ 
dems  sieht  so  aus:  Die  billig¬ 
sten  sind  im  Moment  von 
Tandy,  die  aber  im  Moment 
nicht  lieferbar  sind.  Es  gibt 
noch  ganz  billige  Selbstbau¬ 
modems,  die  aber  nur  300 
Baud  schaffen.  Wenn  man 
sich  länger  damit  beschäf¬ 
tigt,  sind  300  Baud  einfach  zu 
langsam.  Da  kommt  man  auf 
so  etwas  wie  den  79 10/79 11; 
deshalb  haben  wir  den  Bau¬ 
satz  mit  Platine  entwickelt, 
den  wir  zu  Selbstkosten  ver¬ 
treiben. 


Also  BTX  wird  längerfristig  nicht 
überleben? 

Nicht  als  breites  Enduser- 
Ding.  Für  spezialisierte  Sa¬ 
chen  und  bestimmte  Firmen 
wird  es  wohl  überleben, 
aber  in  sehr  kleinem  Rah¬ 
men.  Guck  Dir  an  wieviel 
hunderttausend  C  64  es  gibt 
und  wieviel  tausend  BTX- 
Anwender.  Trotzdem  wer¬ 
den  wir  bis  zum  Ende  des 
Jahres  unseren  BTX-Dienst 
ausbauen  und  erweitern, 
aber  ab  Einführung  der  er¬ 
höhten  Gebühren  werden 
wir  unseren  BTX  ausschal¬ 
ten.  Wir  haben  einen  Antrag 
auf  100  Seiten  laufen,  um  ei¬ 
nen  einigermaßen  aktuellen 
Informationsdienst  anzubie¬ 
ten.  Wir  wollen  eben  einige 
BTX-Anwender  auf  andere 
Gedanken  bringen  und  sie 
auf  andere  Möglichkeiten 
hinweisen.  Aber  spätestens 
zur  Gebührenerhöhung  wer¬ 
den  wir  aussteigen.  Wir  sind 
auf  der  Seite  19058  im  Berli¬ 
ner  Übergangsrechner,  und 
auf  der  Seite  20305080  im 
neuen. 


0k,  das  war’s! 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


Der  CCC  ist  auch  noch  im  RMI-Net  über 
Datex-P  zu  erreichen  (NUA  4424104C341)  un¬ 
ter  dem  Namen  Chaos-Computer-Club  c/o 
Schwarzmarkt,  Bundesstraße  9,  2000  Ham¬ 
burg  13. 


0 
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Wettbewerbe 


MJ« 


ruiwöiiuuuy  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haßen  einen  Commodorc 
4  oder  einen  VC  20  und 
ersuchen  diesen  irgend¬ 
wie:  sinnvoll  einzusetzen, 
Inter  einer  sinnvollen 
.nwendung  versteht  die 
64’er  Redaktion  alles,  was 
beispielsweise  Program 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Berech 
nung  der  Benzinkosten 
für  Ihren  Wagen  handeln, 

m  . 

.TG. 


beit  ungsprogramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge¬ 
klügeltes  Telefon-  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  weni¬ 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sie  führen  die  Lohn-  und 
Gehaltsabrechnung,  Ihre 
Lagerverwaltung,  die  Be¬ 
gehungen  auf  einem 
Cornmodore-Heimcom 
luter  durch?  So  spezielle 
endungen  wie  die 
erechnung  der  Statik 
von  selbstgezimmerten 
en,  von  Klimadia 
grammen  oder  Vokabel¬ 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zinsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 

Uns  ist  die  Anwendung 
es  Monats 

-MW  7m 

[iiK] 


h 

- 

n 

\  \r7 

Ip 

\  K\, 
U  ^ 

wert. 

ujic  m  Ihrem  Computer 
machen: 

Redaktion  64’er,  Aktion: 
Anwendung  des  Monats, 
el-Str.  2,  8013 
ei  München. 


Computer  Programme 
für  den  VC  20  oder  C  64 
gibt  es  fast  wie  Sand  am 
Meer,  Die  Palette  reicht 
von  der  ernsthaften  An¬ 
wendung  wie  Textverar¬ 
beitung  oder  Dateiver¬ 
waltung  über  Utilities, 
Hilfsprogramme  zum  Er¬ 
stellen  von  Grafik  und 
Sound,  Programmierhil¬ 
fen  und  Spracherweite- 
rungen  bis  zu  Spielen. 
Und  auch  Spiele  kann 
man  noch  unterteilen  in 


verschiedene  Arten.  So 
gibt  es  Actionspiele  aber 
auch  Denk-  und  Strategie¬ 
spiele. 

Relativ  selten  findet 
man  jedoch  echte  Jux- 
Programme,  solche,  die 
einen  zum  Lachen  brin¬ 
gen  oder  durch  Gags  ver¬ 
blüffen.  Programme,  die 
man  zum  Beispiel  auf  Par¬ 
tys  vorführen  kann.  Aber 
das  soll  sich  durch  unse¬ 
ren  Programmierwettbe¬ 
werb  ändern. 


Insgesamt  1000 
Mark  zu 
gewinnen 


Schreiben  Sie  ein  sol¬ 
ches  Programm  und 
schicken  Sie  es  uns  auf 
Diskette  oder  Kassette  zu. 
Die  Länge  ist  unwesent¬ 
lich.  Allein  entscheidend 
ist  die  Wirkung. 

Schicken  Sie  Ihre  Pro¬ 
gramme  auf  Diskette/ 
Kassette  unter  dem  Stich¬ 
wort  »Programmierwett¬ 
bewerb:  Das  lustigste 
Programm«  an  folgende 
Adresse: 

Verlag  Markt  &  Tech¬ 
nik,  Redaktion  64’er, 
Hans-Pinsel-Str.  2,  8013 
Haar  bei  München. 


Einmal 

im  Mor.vit  gibt  es  die 

SUPERCHANCE 


Diese  nicht  einmalige  Gele¬ 
genheit  sollten  Sie  nutzen.  Wie? 
Schicken  Sie  uns  Ihr  bestes, 
selbst  erstelltes  Programm.  Bei 
der  Art  des  Programms  sind  wir 
nicht  wählerisch. 

Sie  haben  ein  sehr  gutes  (Schieß-, 
Knobel-,  Denk-,  Action-,  Abenteu¬ 
er-)  Spiel  geschrieben:  ein¬ 
schicken! 

Sie  verfügen  über  ein  komforta¬ 
bles  Disketten-Kopier-(Sortier-)- 
Programm  mit  einigen  außerge¬ 
wöhnlichen  Leistungsmerkma¬ 
len:  einschicken! 


Sie  haben  das  Basic  um  einige 
sinnvolle  Befehle  erweitert:  ein¬ 
schicken! 

Sie  arbeiten  mit  einem  selbster¬ 
stellten  Textverarbeitungspro¬ 
gramm,  einer  eigenen  Tabellen¬ 
kalkulation,  einem  semiprofes¬ 
sionellen  Datenverwaltungspro¬ 
gramm:  einschicken! 

Sie  zeichnen  und  konstruieren 
mit  einem  selbsterstellten  Pro¬ 
gramm  in  hochauflösender  Gra¬ 
fik:  einschicken! 

Wir  freuen  uns  über  jeden  Bei¬ 
trag  und  honorieren  mit  bis  zu 


2  000  Mark 


Aus  den  besten  Listings,  die 
veröffentlicht  werden,  sucht  die 
64'er-Redaktion  einmal  im  Monat 
das  »Listing  des  Monats«  aus.  Alle 
Listings,  die  im  64 'er  abgedruckt 
sind,  werden  mit  100  bis  300  Mark 
honoriert.  Die  genaue  Vorge¬ 


hensweise  beim  Einsenden  von 
Listings  ist  in  »Wie  schicke  ich 
meine  Programme  ein!«  be¬ 
schrieben: 

Schicken  Sie  Ihr  Listing  an: 
Redaktion  64'er,  Superchance: 
Listing  des  Monats,  Hans-Pinsel- 
Str.  2,  8013  Haar  bei  München. 
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Wie  die  Überschrift  schon  andeutet,  hat 
sich  eine  Änderung  vollzogen.  Das  »Ka« 
für  Kassette  ist  weggefallen.  Dafür  hat 
sich  »Di«  zu  Disk  gemausert.  Es  ist  uns 
also  endlich  gelungen,  die  Programme 
auch  auf  Diskette  anzubieten.  Wir  muß¬ 
ten  allerdings  eine  Entscheidung  fällen: 

Kassette  oder  Diskette,  beides 
ging  nicht.  Die  Diskette  ist  aufgrund 
ihrer  Verbreitung  ausgewählt  worden. 
Dafür  sind  jetzt  alle  Programme  einer 
Ausgabe  (VC  20  und  C  64)  auf  einer 

Diskette  erhältlich. 


Emes  hat  sich  aber  nicht  ge¬ 
ändert:  der  Preis.  Die  Dis¬ 
kette  für  eine  Ausgabe  kostet 
demnach  29,90  Mark.  Sie 
werden  bei  einigen  Disket¬ 
ten  bestimmte  Programme 
vermissen.  Deren  Autoren 
konnten  sich  nicht  entschlie¬ 
ßen,  ihr  Programm  im  Rah¬ 
men  des  Leserservice  für  ei¬ 
ne  Verbreitung  auf  Datenträ¬ 
ger  freizugeben.  Bei  den 
Ausgaben  4,  5  und  6  können 
noch  Kassetten  (VC  ...)  be¬ 
stellt  werden.  Auf  kurze  Pro¬ 
gramme  wurde  aus  Grün¬ 
den  der  Übersichtlichkeit 
verzichtet.  Nun  noch  einige 
tfev_.inische  Details.  Zu  den 
Programmen  sind  immer  die 
Seitenzahlen  angegeben, 
unter  der  Sie  die  Beschrei¬ 
bungen  in  der  entsprechen¬ 


den  Ausgabe  finden  können. 
Der  Diskette  liegen  also,  kei¬ 
nerlei  Informationen  bei.  Le¬ 
sen  Sie  daher  aufmerksam 
die  Anleitung  (ob  SYS- 
Befehle  nötig  sind,  in  wel¬ 
cher  Reihenfolge  geladen 
werden  muß,  eventuelle 
Sprach-  oder  Speicherer¬ 
weiterungen  und  ähnliches 
mehr)  in  dem  jeweiligen  Arti¬ 
kel  nach.  Aus  Aktualitäts¬ 
gründen  wird  jeweils  die  ab¬ 
gedruckte  Version  angebo- 
ten.  Eventuelle  systemati¬ 
sche  Fehler,  die  sich  noch  im 
Programm  befinden  können, 
müssen  von  Ihnen  selbst, 
nach  Studium  des  Druckfeh- 
lerteufelchens,  korrigiert 
werden. 


Ausgabe  10/84 

Bestellnummer  CB  019 

Commodore  64 

Finanzmathematik  (AdM) 
Hypra-Load  (LdM) 
Hardcopy 
Compact  2 
Hardcopy  MPS  801 
Hardcopy  VC  1526  neu 
Hardcopy  Gemini-lOX 
Hardcopy  FX-80 
Hardcopy  VC  1520  farbig 
Apocalypse  now 
Supercopy 
Disk-Dump 
Diskettenorganisation 
U  ser-Port-Tastatur 
UP-Maske 

VC  20 

Epedemic 

Video-Vorspann 
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Bestellnummer  CB  014 

Commodore  64 

Indexsequentielle  Adreßdatei, 
S.  54  —  Spring  Vogel  (LdM),  S.  68 
—  Orgel/Synthesizer  (AdM),  S. 
70  —  Sprite  Aid+ ,  S.  89  —  Screen 
Change,  S.  94  —  List-Stop,  S.  97  — 


Renew,  Datawandler,  S.  102  — 
Synthetische  suchen,  S.  104  — 
Geregelter  Zahlungsverkehr,  S. 
164 

VC  20 

Schiebung  (GV>),  S.  77  —  Deu¬ 
zei  (8K  > ),  S,  79  —  Hardcopy  1520 
(GV>),  S.  87  -  RS232-Interface 
(GV  >),  S.  100  -  Datawandler 
(GV  >),  S.  102 
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Bestellummer  CB  013 
Commodore  64 

Castle  of  Doom,  S.  66  —  Pac-Boy, 
S.  89  —  Kopplung,  S.  73  —  User- 
Port-Display,  S.  97  —  RS232-Test, 
S.  77  —  View  BAM,  S.  99  —  Görlitz 
Hardcopy,  S.  83  —  Milchvieh,  S. 
156 

VC  20 

Kudiplo  (3K),  S.  86  —  Print  at  Re- 
store  n  (GV),  S.  101 


Ausgabe  7/84 

Bestellnummer  CB  017 

Commodore  64 

Terminalprogramm,  S.  24  —  Soft¬ 


warekatalog,  S.  72  —  Russvok 
(SB),  S.  76  -  Crown  No.  1,  S.  80  - 
Space  Invaders,  S.  81  —  1520 
Hardcopy,  S.  108  —  Centronics 
Interface,  S.  110  —  Kurvendiskus¬ 
sion,  S.  116  —  Copy  Rel.  Files,  S. 
132  —  Autostart,  S.  138  —  Strubs 
(OP  u.  QP),  S.  154 

VC  20 

Rätsel,  S.  122 
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Commodore  64 
Bestellnummer  CB  018 
Lehrerkalender,  S.  64  —  Morse¬ 
trainer,  S.  72  —  Supervoc,  S.  69  — 
Grafische  Darst.  (SB),  S.  82  —  Hot 
Wheels,  S.  92 

VC  20  Bestellnummer  VC  008 
Movemaster  (8K),  S.  78  —  Ghost 
Manor  (GV),  S.104  —  Logic  Di¬ 
sass.  (3K>),  S.  108  —  Under¬ 
ground  (LdM  16K),  S.  120 


Ausgabe  5/84 

Commodore  64 

Bestellnummer  CB  016 
Adreß-  &  Telefonregister,  S.  64  — 


Fahrsimulator,  S.  82  —  Schatzsu¬ 
cher  (LdM),  S.  90 

VC  20  Bestellnummer  VC  007 
Relative  Datei  (8K),  S.  69  — 
Schmätzer  (GV)  S.  76  -  3D- 
Grafik  (8K),  S.  78  -  Rallye  (28K), 
S.  128 


Ausgabe  4/84 

Commodore  64 
Bestellnummer  CB  015 
Drawline  +  Demos,  S.  65  —  Spri¬ 
te  Move,  S.  70  —  Invaders  (SB),  S. 
74  —  Caesar,  S.  78  —  Disk-Copy, 
S.  92  —  Merge,  S.  94 

VC  20  Bestellnummer  VC  006 
Elektr.  Notiz.  (16K),  S.  50  —  Renn¬ 
fahrer  (GV),  S.  86  -  Erste  Hilfe 
(GV  > ),  S.  88  -  Disk-Copy  (3K  > ), 
S.  92 


Bedeutung  der  Abkürzungen 

*LdM  =  Listing  des  Monats 

*AdM  =  Anwendung  des  Monats 

*SB  -  Simons  Basic 

*GV  »  Grundversion 

*GV  >  =  alle  Speicherversionen  können 

verwendet  weiden  (einschließlich  GV) 

*3K  -  3-KByte-Speichererweiterur.g 

wird  benötigt 

*8K>  =  Speichererweiteiung  größer 
als  8  KByte  wird  benötigt. 
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len  Addieren.  Auch  mit  dem 
Übertrag  läuft  es  wie  im  dezi¬ 
malen.  Beispiel:  2  +  2  =  4: 

10  entspricht  dez.  2 
+ 10  entspricht  dez,  2 


100,  was  dezimal  eine  4  er¬ 
gibt. 

In  der  zweiten  Spalte  wur¬ 
de  nach  der  Regel  verfah¬ 
ren:  1  +  1  =  10,  Rechnen  wir 
noch  3  +  3  =  6: 

11  entspricht  dez.  3 
+ 11  entspricht  dez.  3 


110,  was  dezimal  eine  6  er¬ 
gibt. 

In  der  ersten  Spalte  wurde 
gerechnet  1  +  1  =  10,  wobei 
nach  dem  alten  Motto:  0  hin, 
1  im  Sinn  die  0  unter  den 
Strich  gesetzt  wurde.  In  der 
zweiten  Spalte  wird  dann  so 
verfahren:  1  +  1+1  (das  ist  die 
1,  die  wir  »im  Sinn«  hat¬ 
ten)  =11.  Ich  meine,  daß  Sie 
ohne  Probleme  die  folgen¬ 
den  Übungsaufgaben  lösen 
und  dann  jeweils  dezimal 
das  Ergebnis  nachprüfen 
können:  10  +  5,  7+1,  16  +  16, 
240  +  16,  62  +  65. 

In  der  nächsten  Folge  wer¬ 
den  wir  eine  Anzahl  neuer 
Assembler-Befehle  kennen¬ 
lernen  und  erfahren,  wie  der 
Computer  Zahlen  voneinan¬ 
der  abzieht.  Bei  der  Gele¬ 
genheit  lernen  Sie  dann 
noch  einige  Flaggen  ken¬ 
nen,  und  wir  werden  das  Rät¬ 
sel,  warum  bei  LDA  #  $FF  ei¬ 
ne  negative  Zahl  angezeigt 
wird,  lösen.  Und  vor  allen, 
Sie  erhalten  einen  komforta¬ 
blen  Assembler,  Disassem¬ 
bler  und  einen  Monitor. 

(Heimo  Ponnath/aa) 
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In  der  nächsten  Ausgabe  vom  19.  Oktober  lesen  Sie: 


Listing  des  Monats 

Das  Bestechende  an  dieser 
Grafik-Spracherweiterung  ist 
nicht  nur  die  einfache  Anwen¬ 
dung  durch  neue  Befehle, 
sondern  auch  die  hohe  Ge¬ 
schwindigkeit,  mit  der  ge¬ 
zeichnet  wird.  Die  neuen  Gra¬ 
fik-Befehle  lassen  sich  pro¬ 
blemlos  in  Basic-Programme 
einbauen.  Auch  das  Zeichnen 
mit  Joystick  oder  Light-Pen 
wird  unterstützt. 


Drucker-Test 

Wiederum  stellen  wir  Ihnen  ei¬ 
nige  Drucker  vor,  die  sowohl  für 
den  C  64-Besitzer  als  auch  für  den 

Einführung  in  Comal 

Eine  neue  Programmierspra¬ 
che  für  den  C  64  ist  auf  ihrem  Sie¬ 
geszug.  Comal  vereint  die  Vorzü¬ 
ge  von  Basic,  Pascal  und  Logo  und 
erfreut  sich  dadurch  wachsender 
Beliebtheit.  Wir  zeigen,  wie  man 
mit  Comal  programmiert. 


Test  Monitore 

Was  bringt  ein  Farb¬ 
monitor  gegenüber  ei¬ 
nem  Fernseher  mit  Vi¬ 
deo-Eingang?  Ist  wirk¬ 
lich  jeder  Monitor  glei¬ 
chermaßen  für  die  Text¬ 
verarbeitung  geeignet? 
Wir  haben  eine  Reihe 
von  Geräten  für  Sie  ge¬ 
testet  und  ihre  Stärken 
und  Schwächen  festge¬ 
stellt.  In  einer  Markt¬ 
übersicht  informieren 
wir  über  Monitore  für 
den  VC  20  und  C  64. 


VC  20-Besitzer  interessant  sein 
dürften.  Die  Marktübersicht  (Teil 
2)  bietet  weitere  wichtige  Hilfen 
für  die  Kaufentscheidung. 

Anwendung  des  Monats 

Schachspieler  wollen  oft  bereits 
gespielte  Partien  von  bedeuten¬ 
den  Turnieren  nachvollziehen. 
Das  Programm  Schachmeister 
bietet  Ihnen  eine  optisch  an¬ 
sprechende  Lösung. 
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Das  Super-Laufwerk 


Nun  gibt  es  das  MSD  Super  Disk 
Drive  für  den  C  64  endlich  auch  in 
Deutschland.  Diese  Floppy  stellt 
eigentlich  den  Traum  für  jeden 
C  64-Besitzer  dar.  Doppellaufwerk, 
serieller  und  paralleler  Anschluß, 
qualitativ  hochwertige  Mechanik 
und  schnellere  Übertragung  (mit 
dem  IEC-Bus)  der  Daten.  Wir  haben 
die  Floppy  unter  den  Aspekten  der 
Kompatibilität,  der  Laufzeiten  und 
der  Zuverlässigkeit  getestet. 

Software-Tests 

VizaStar  wird  als  ideale  Ergän¬ 
zung  zu  dem  Textverarbeitungspro¬ 
gramm  VizaWrite  angeboten.  Was 
läßt  sich  mit  diesem  Tabellen-  und 
Datenverwaltungsprogramm  in  Ver¬ 
bindung  mit  dem  Textprogramm  al¬ 
les  anfangen?  Wie  steht  es  im  Ver¬ 
gleich  mit  den  Einzellösungen  da? 
Hat  die  Konzeption  eines  integrier¬ 
ten  Software-Pakets  auf  dem  C  64  ei¬ 
ne  Zukunft?  Ist  es  besser  als  die  im 
Plus/4  eingebaute  Software?  Wir 
geben  eine  Antwort  auf  all  diese  Fra¬ 
gen. 

Der  beste  Einzeller 

Die  Wettbewerbe  bringen  eine 
ganze  Reihe  guter  Ideen  ans  Licht. 
Wir  veröffentlichen  die  bisher  be¬ 
sten  Einzeiler.  Lassen  Sie  sich  über¬ 
raschen,  was  man  alles  in  einer  Zeile 
realisieren  kann.  Die  Unterpro¬ 
gramm-Bibliothek  wird  ergänzt 
durch  eine  sehr  komfortable  Sortier- 
routme  in  Maschinensprache.  Au¬ 
ßerdem  stellen  wir  den  Program¬ 
mierern  eine  weitere,  sehr  an¬ 
spruchsvolle  Aufgabe. 

Listings 

—  Eine  Grafik-Befehlserweiterung 

—  Komfortabler  Synthesizer 

—  SMON  —  ein  komplettes  Assem¬ 
blerpaket  mit  Monitor  (Teil  1) 

—  Vier  gewinnt  in  drei  Dimensionen 

—  Verbesserung  von  Simons  Basic 

—  Einfaches  Laden  von  Program¬ 
men 

—  Betriebssystemerweiterung 

—  Pseudo-Sprites  und  Sprites  ohne 
Esoterik 

—  3D-Körper  aus  allen  Richtungen 
betrachten 

—  und  wieder  viele  Tips  und  Tricks 
für  den  VC  20  und  C  64 


180 


Ausgabe  10/Oktobör  1984 

64er-online.net 


